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ABSTRACT 


THIS  REPORT  OESCrIBES  A SET  OF  GENERAL-PURPOSE* 
FORTRAN-CALLABLE  FUNCTIONS  AND  SUBROUTINES  FOR  MANIPULATING, 

character-strings,  character-strings  of  arbitrary  length  can  be 

TREATED  AS  SIMPLE  (NON-OIMENSTONEO)  VARIABLES.  FUNCTIONS  WE 
PROVIDED  FOR  STRING  OfFINITlON*  STRING  CONCATF  (NATION*  SUBSTRING 
EXTRACTION.  STRING  COMPARISON.  PATTERN  MATCHING  AND  SEARCHING. 
NUf'ER I C-ST^'ING/S TP ING-NUMERIC  CONVERSIONS,  STRING  INPUT/OUTRUT* 
AND  OTHER  TASKS.  THE  ROUTINES  DESCRIBED  ARE  MODERATELY 
SYSTEM-DEPENDENT,  AND  ARE  CURRENTLY  AVAILABLE  AS  AN  OHJFCT 
PROGRAM  LIBRARY  ON  THf  COC  t>5o0/6e>00  COMPUTERS  AT  ThE  ARRAOCOm 
DOVER,  NEW  JERSEY  SITE. 


ASSUMPTIONS 


THE  R> AUER  IS  EXPECTED  TO  dE  AN  EXPERIENCED  FORTRAN 
PROGRAMMER  WITH  A solid  understanding  of  computer  concerts  AND 
A GENERAL  <NOWLE&E  of  THE  CDC  SCOPE  OPERATING  SYSTEM  ANH 
CDC  F OPTRA:;  EXTENDED  1 AUGUAGE , 


WARNIN 

the  functions  and  subroutines  described  in  this  report 

ARE  MODERATELY  SYSTFM-OEPENOENT.  USERS  ANTICIPATING  A REQUIREMENT 
FOP  TRANSPORT Ad IL ITY  oF  PROGRAMS  TO  A COMPUTE®  ENVIRONMENT  OTHER 
Than  A CDC  6X00  COMPUTER  WITH  SCORE  OPERATING  SYSTEM  SHOULD 
SFEK  ALTERNATIVE  METHODS  OR  CONSULT  Th£  AUTHOR  FOR  IMPLEMENTATION 
GUIDANCE  Ou  OTHER  COMPUTERS. 
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INTRODUCTION 


ONE  OF  THE  MOST  SERIOUS  SHORTCOMINGS  OF  THE  FORTRAN 
LAM&UAGE  In  COMPARISON  TO  MOOF.HN  MIGH-LEVFL  LANGUAGES  SUCH 
AS  ALGOL.  PL/1  OR  SN030L  IS  THE  ABSENCE  OF  A CHARACTER  OATA 
TYPE.  IN  MANY  LANGUAGFS  CHARACTER  STRINGS  OF  ANY  LENGTH  MAY 
BE  DEFINED  ANO  MANIPULATED  AS  A SIMPLE  VAt  I ABLE * JUST  AS  IS 
ThF  CASE  FoR  REAL  OP  INTEGER  NUMBERS.  FORTRAN.  HOWEVER.  haS 
NO  SUCH  FACILITY.  MAKING  IT  ExTREmELY  DIFFICULT  TO  PROGRAM 
MANY  APPLICATIONS  IN  </HICH  CHARACTER  STRINGS  MUST  BE 
MANIPULATE  i (ThE  FUTURE  ANSI  FORTRAN  PROPOSED  BY  COMMITTEE 
X.1JJ  INCLUOES  A LIMITED  IMPLEMENTATION  OF  THE  CHARACTER  TYPE 
VARIABLE.  FOR  BACKGROUND  INFORMATION  ON  STPlNG  HANDLING  IN 
VARIOUS  LANGUAGES  SEE  REFERENCES  (M.I7).  AND  I8J). 

THE  ROUTINES  DESCRIBED  IN  THIS  REPORT  GO  A LONG  WAY 
TOWARD  THE  GOAL  OF  GIVING  THE  USER  A CHARACTER-TYPE  VARIABi E ANO 

Character  string  operators  as  implemented  in  the  newer 
HIGH-LEVEL  languages,  the  most  significant  ffature  of 
These  routines  is  That  they  enable  the  usep  to  define  and 

MANIPULATE  ChARACTFR  STRINGS  OF  any  length  in  A MANNER  SIMILAR 
TO  OTHER  VARIABLES.  WITH  THESE  ROUTINES.  ANY  LENGTH 
STRING  CAN  BE  REPRESENTED  AS  A SIMPLE  INTEGER  VARIABLE. 

VARIOUS  FUNCTIONS  AND  SUBROUTINES  AWE  PROvIDEn  FOR 
DEFINING  STRINGS.  INPUT  ANO  OUTPUT  OF  STRINGS.  CONCATENATION 
(JOINING  TOGETHER)  OF  STRINGS.  SUBSTRING  EXTRACTION. 

COMPARISON  OF  STRINGS.  PATTERN  MATCHING.  CONVERSION  OF  STRINGS 
TO  OTHER  DATA  TYPES.  AND  OTHER  USEFUL  TASKS. 

IN  MANY  APPLICATIONS.  JUDICIOUS  USE  OF  THF SE  ROUTINES  CAN 
REDUCE  THE  NUMBER  OF  t JnES  OF  CODE  REOUIRFD  FOR  A PROGRAM  MY 
A FACTOR  OF  10  OR  BETTER.  AND  REDuCE  DEVEl.OPMFNT  TIME  HY 
EVEN  LARGER  FACTORS. 

AS  AN  EXAMPLE  OF  THE  USEFULNESS  OF  THE  CHARACTER  STRING 

routines  presented  here,  consider  this  hypothetical  anecdote... 

PROGRAMMER  ARA  MODWlJN  has  a PROBLEM  TO  COCE  IN  FORTRAN. 

THF  PROGRAM  REQUIREMENTS  INCLUDE  THE  NEEO  TO  PEAD  A PROJECT  NAME 
FROM  A CARD  AND  PRINT  JT  OUT  IN  THE  MIDDLE  OF  A SENTFNCF 
ON  THE  L INr  PRINTER.  SO  THAT  THE  RESULTING  LINE  WILL  READ. 

THE  <NAME > IS  UNDER  DEVELOPMENT. 

where  <namf>  is  the  text  read  from  the  card,  for  instance. 

IF  THE  CARD  READ.  " XM6S0E3  ROCKET  ASSISTFD  PROJECTILE".  ThEN 
Thc  PRINTOUT  SHOULD  READ. 

THE  XM650E  \ ROCKET  ASSISTED  PROJECTILE  IS  UNDER  DEVELOPMENT. 

ON  THE  OTHfcP  HAND.  IF  THE  CARD  READ.  " Ml  RIFLE".  THEN  THE 
line  printed  should  read. 

The  mi  RIFIE  IS  UNDER  DEVELOPMENT. 
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T-tlS  PROBLEM  REQUIRES  APA  TU  PERFORM  A SIMPLE  CHARACTER  STPING 
manipulation,  in  fortpan*  though,  the  problem  IS  NOT  all  THAT 
T-  IVIAL.  ONE  OF  THE  THINGS  THAT  MAKES  THE  PROBLEM  NON-TR I / I AL 
IS  THE  FACT  THAT  THE  nAmE  READ  IS  OF  ARBITRARY  LENGTH,  SO  HE  CANT 
ALLOCATE  A FIXED  LENGTH  OF  SPACE  POP  THE  NAME  IN  THE  FORMAT 
STATEMENT  -HEN  PRINTING  THE  SENTENCE*  SINCE  APA  MIGHT  WINO  UP 
*ITH  HIS  SENTENCE  LOOKING  LIKE* 

The  Ml  RIFiE  IS  UNOFR  DEVELOPMENT. 

WHICH  LOOKS  SLOPPY  AND  IS  DIFFICULT  TO  READ. 

TO  SOLVE  Tr I S PROBLEM . ARA  COOEO  THE  FOLLOWING  PROGRAM  SEGMENT. 


DIMENSION  NAME (HO) 

DIMENSION  IPPEO(^R) 

C PoE-OEFInE  PREDICATE  OF  SENTENCE. 

DATA  IPREO  / 1H  , 1HI,  1HS.  1H  * 

X IHU.  1HN,  I HO • 1HE*  i HP  * 1H  « 

X 1 HO . 1H£ , 1HV*  1HE*  1HL*  1HO*  1HP*  1HM,  1HE*  1HN*  1HT  * 1h.  / 
C READ  NAME  FORM  CARO. 

READ (5*1  '5)  (NAMF(l) *L=1*80) 

105  EORMaT(BvAI) 

C COUNT  BACKWA  OS  TO  CUT  OFF  ALL  TRAILING  BLANKS  FROM  NAME 

DO  1 / 1 = 1 * 7R 
J=B l - I 

IF (NAME (J) .NF.Ih  ) GO  TO  101 

100  CONTINUE 

101  CONTINUE 

WRIT,  ( b * 1 06)  (NAME  (L)  *L  = 1 » J)  * ( IPREO  (L)  »L=1  tZS) 

106  FORMAT (*  THE* * 1 2Al) 


THE  ABOVE  PROGRAM  WORKS*  BUT  ILLUSTRATES  hOW  * LOT  OF  CODE 
MAY  BE  REQUIRED  FOR  EVEN  THE  MOST  TRIVIAL  TEXT  MANIPULATION. 

IF  APA  HAD  KNOWN  HOW  TO  USE  THE  ROUTINES  IN  THIS 
MANUAL*  HE  COULD  HAVE  REPLACED  THE  ENTIRE  BLOCK  OF  CODE  ABOVE 
WITH  A SINGLE  STATEMENT  (INCLUDING  READING  ANO  PRINTING)*  BY 
SIMPLY  COOING* 

CALL  KOUT ( KON ( " THE") »KIN(5> ,KON("  IS  UNDER  DEVELOPMENT."))) 

THIS  ONE  STATEMENT  READS  THE  NAME  FROM  A CARD  AND 
PRINTS  THE  DESIRED  OUTPUT  ON  THE  PRINTER.  ALTHOUGH  THE 
STATEMENT  *<AY  LOOK  COmRI Ex*  IT  IS  ACTUALLY  QUITE  EASY  TO 
CONSTRUCT*  ONCE  YOU  HAVE  MASTERED  THE  BASIC  FUNCTIONS 
PRESENTED  TN  THIS  MANUAL. 
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fundamental  character  string  operations 

THIS  SECTION  INT  OOUCES  SOME  OF  THE  HASIC  OPERATIONS 
INVOLVED  WITH  CHARACTER  STRINGS  AS  THEY  APPLY  TO  THIS  REPOPT. 
LATER  RE  S<-ALL  EXAMINf  THE  FUNCTIONS  AND  SUBROUTINES  IN  DETAIL. 

1.  STRING  DEFINITION. 

A CHARACTER  STRING  IS  A GROUP  OF  FRO  * 0 TO  500  CHARACTERS 

treated  as  a singlf  entity,  a character  string  having  o 
CHARACTERS  is  CALLED  the  null  string. 

TO  DEFINE  A CHARACTER  STRING  CONSTANT.  WE  CAN  USE 
FUNCTION  KON.  .FOR  E*A*PLE* 

ISTR=KON("ARRAOCOM") 

JSTR-KONC'OOVER,  NEW  JERSEY  07B01") 

THE  ABOVE  TWO  STATEMENTS  OEFInE  T*0  STRINGS. 

THE  FIRST  STRING  HAS  u CHARACTERS.  THE  VALUE  RETURNED  BY 
FUNCTION  KON  IS  CALLED  THE  STRING  REPRESENTATION.  IN  THE 
FIRST  CASE  THE  STRING  REPRESENTATION  OF  “ARPADCOM"  *AS 
ASSIGNED  To  ISTR.  STRING  REPRESENTATIONS  ARE  ALWAYS  ASSIGNED 
TO  INTEGER  VARIABLES.  ANY  STRING  MAY  BE  PEPRESENTED  BY  A 
SIMPLE  INTEGER  VARIABi.E.  THE  SECOND  STATEMENT  GENERATES 
another  STRING  CONSTANT  representation  ASSIGNED  TO  JSTR. 

FOP  A STB  I ' G OF  £3  CHARACTERS. 

FOR  ThE  PRESENT  «E  NEED  NOT  BE  CONCERNED  rtlTH  WHAT  THE 
INTERNAL  Form  OF  THE  REPRESENTATION  OF  THf  STpING  IS*  IT  IS 
SUFFICIENT  TO  KNOW  THAT  ISTR  ANO  JSTR  UNloUELY  DEFINE  THE 
STRINGS. 

STRING  CONCATENATION 

CONCATENATION  MEANS  “JOINING  TOGETHER".  TWO  OR  MORE 
STRINGS  MAy  BE  CONCATENATED  By  USING  FUNCTION  KAT.  FOR 
EXAMPLE.  ThE  STRINGS  PREVIOUSLY  DEFINED  CAN  BE  JOINED  BY. 

KSTPtKAT(ISTP.JSTO) 

Th£  VAPIABiE  KSTR  NOW  CONTAINS  THE  REPRESENTATION  OF 
"ARRADCOMDnvER.  NEW  JERSEY  0?B0l“. 

3.  SUBSTRING  EXTRACTION. 

SUBSTRING  IS  THE  INVERSE  FUNCTION  OF  CONCATENATION. 
SUBSTRING  i-‘E ANS  TO  TAkE  A STRING  APART.  IN  ORDER  TO 
EXTRACT  A PORTION  OF  A LARGER  CHARACTER  STRING*  FUNCTION 
KS.JB  MAY  BE  USED.  POP  EXAMPLE. 


* » » 

**  - . . ■ *• 
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NlWGT R=KSUB  ( 1ST1'*'-  »S> 


NF-jSTR  IS  nEFI  JED  AS  THf  STRING  REPRESENTATION  OF  THE  STRING 
" AOCQM" « 6 -'CAUSE  KSUH  E*TRACTFD  S CHARACTERS  BEGINNING  aT  THE 
FOURTH  CHARACTER  OF  I S T ° • SIMILARLY*  KSUH < JSTR *h , D)  RESULTS 
If  THE  STRING  REPRESENTATION  OF  "NEW". 

4.  STRING  INPUT/OUTPUT. 

TWO  ROUTINES  ARE  PROVIDEO  FOR  GENERAL-PURPOSE  INPUT  AnD 
OUTPUT  OF  STRINGS,  FUNCTION  *IN  MAY  BE  USED  LIKE  A READ 
STATEMENT.  FOR  EXAMPiE. 

LST  =KIN(B) 

THIS  STATEMENT  READS  A RECORD  (CARD)  FROM  UNIT  5 AND  ASSIGNS 
THE  STRING  REPRESENTATION  OF  THE  CARO  IMAGE  TO  LSTR • 

IF  THE  CARD  READ  FROM  TAPES  CONSISTED  OF* 

ThIS  IS  AN  EXAMPLE  OF  A CHARACTER  STRING 

Thfn  LSTR  WOULD  BE  THE  REPRESENTATION  OF  THE  RO  CHARACTER 
STRING.  "THIS  IS  AN  EXAMPLE  OF  A CHARACTER  STRING". 

LATER  A NUMBER  UF  OPTIONS  WILL  BE  EXPLAINED  FDR  FUNCTION  *IN. 

TO  OUTPUT  1 STRING.  SUBROUTINE  KOUT  MAY  BF  USED. 

for  example  to  output  the  stping  previousi  y assigned  to  istr* 

WF  COULD  S f MPL Y CODE. 

CALL  KOUT (b» ISTR) 

THIS  WOULD  OUTPUT  THE  DESIRED  STRING  TO  UNIT  f . IF  UNIT  b 
WFWE  A PRINTER.  Then  THE  STRING  "RRADCOM"  WOU! D BE 
PRINTED  (ThE  FIRST  CHARACTER  wOULO  BE  LOST  AS  CARRIAGE  CONTROL. 
JUST  LIKE  flNY  OTHER  WRITE  STATEMENT).  SEVERAL  CARRIAGE  CONTROL 
OPTIONS  MAY  BE  SPECIFIED  IN  THE  CALL  TO  KOUT  TO  AVOID  LOSS  OF 
THE  FIRST  CHARACTER  AS  CARRIAGE  CONTROL.  IF  DESIRED.  THESE 
WILL  BE  INTRODUCED  LAIF.p. 

ALREADY  WE  CAN  SEE  TH,\T  IT  WOULD  BE  VERY  EASY  TO  WRITE  A 
SECTION  OF  CODE  TO  COPY  A CARD  FRO”  THE  READER  TO  THE 
PRINTER.  wE  COULD  SImP|,Y  USE  THE  STATEMENT. 

CALL  KOUT (6«KIM(G) ) 
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5.  STRING  COMPARISON. 

USING  REGULAR  FORTRAN  bTATEMENTS.  IT  IS  FASY  TO  COMPARE 
NUMBERS  BY  USING  AN  IF  STATEMENT.  FOR  INSTANCE* 

IF ( x VAL  .GE.  YVAL)  GO  TO  Pi 

COMPARES  X\;AL  ANO  Y V A L • TWO  STRINGS  MAY  BE  COMPARED 

IN  A SIMILAR  MANNER  USING  FUNCTION  LExIC.  LEXIC  COMPARES 
TWO  STRINGS  FOP  LEXICAL  SEQUENCE  (THAT  IS.  FOR  DICTIONARY 
ORDER)  . For  ExAMPi  E* 

IF ( LEXICL  1ST  * “GE"*  JSTR  ))  GO  TO  Pi 

COMPARES  STRING  REPRESENTATIONS  ISTP  AND  JSTR.  IF  THE  STRING 
REPRESENTED  BY  IST»  WOULD  FALL  AFTER  JSTR  IN  ThE  DICTIONARY. 

OR  IF  BOTH  STRINGS  ARE  IDENTICAL*  THEN  CONTROL  IS  TRANSFERRED 
TO  STATEMENT  PI.  OTHc-R.ISE*  CONTROL  PROCEEOS  TO  THE  NEXT 
STATEMENT  AFTER  The  If  STATEMENT.  FUNCTION  Lf  XIC  IS 
A LOGICAL  FUNCTION  ANO  ALWAYS  RETURNS  EITHER  .TRUE.  OR  .FAi SE. . 
The  SECOND  ARGUMENT  PASSED  TO  LEXIC  IS  THE  kEYWORO  OESCRIhinG 

the  Type  of  comparison  oesireo*  and  may  he  any  of  the  following. 

"Li"  "LE"  hfom  "NE"  "GE"  "ftT" 


6.  STRING  LENGTH. 

THE  LENGTH  of  a ST'InG  Is  the  NUMBER  of  characters  it 
contains.  TO  FIND  THF  length  of  ANY  string,  use  function 
LCN.  FOR  EXAMPLE. 

NCHiR=LEN ( 1STR) 

WILL  ASSIGN  NCHAR  = B.  BASEO  ON  OJR  PREVIOUS  DEFINITION  OF  ISTR. 

7.  STRING  PATTERN  MATCHING. 

PATTERN  MATCHING  INVOLVES  SEARCHING  A STRING  FOR  ANY 
SUBSTRING  <<HICH  MATCHES  A GIVEN  STRING.  FOR  EXAMPLE*  IF 

a string  consists  of  "this  is  a string"  and  the  pattern 
IS  "S  IS"*  then  we  can  say  the  pattern  matched  the  string 
starting  at  the  4th  character,  thf  pattern  matching  function 
IS  FUNCTION  match,  ANO  IT  RETURNS  THE  COLUMN  OF  THE  STRING  AT 

which  the  given  pattern  matches.  FOR  example. 

IPAT  = KON  C " ") 

I BLA,\K=MATCH  ( JSTR  ."FIRST"  »IPAT) 

THIS  STATEMENT  RESULTS  IN  IBLANK=7  BASED  ON  OUR  PRIOR 
DEFINITIONS.  BECAUSE  iATCH  SEARCHES  FOR  THE  FIRST  OCCURRANCE 
OF  A dLANK  (THF  PATTERN)  IN  THE  STRING  REPRESENTED  BY  JSTR. 

THE  SECOND  ARGUMENT  IS  A KEYWORD  TELLING  MATCH  WHAT  KINO  OF 
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A SEA»Cm  Tn  MAkE.  F0~  INSTANCE*  IF  WE  HAn  USED  "FIRSTNOT"  INSTEAD 
OF  "FIRST'',  MATCH  wOUi  D HAVE  RETURNED  THE  POSITION  OF  THE 
first  NON-BLANK  ChARACTcR  (WHICH  WOULD  BE  I IN  THE  EXAMPLE). 

LATER  wE  S<-ALL  SEE  HOW  )ThER  --EYWOPDS  MAY  HE  USED  AND  HOW 
MO‘>E  THAN  ONE  PATTERN  may  BE  searched  for  simultaneously. 

PATTERN  MATCHING  IS  OR  TEN  USED  IN  CONJUNCTION  WITH  SUBSTRING 
TO  BREAK  UR  A STRING  INTO  ITS  COMPONENTS.  FOR  EXAMPLE* 

IF  wE  WISHrO  TO  EXTRACT  AS  A SUBSTRING  ALL  THF  INFORMATION 
CONTAINED  TN  PARENTHESES  IN  ANOTHER  STRING.,  wf  COULD  USE  ThE 
FOLLOWING  statements. 


C ASSUME  INSTp  IS  STRING  TO  BE  SEARCHED... 

C LOCATE  COLUMN  CONTAINING  1ST  "("... 

ICO!  I =MATCH ( INSTp  » "F IRsT" * KON ( "I"  )) 


C . .AND  COLUMN  CONTAINING  LAST  ")"  ... 


ICGi  L=MATCh(INST  ,»LAST"»KON(  ")"  )) 


| 

I 


; 


C TRANSFER  STRING  BETWEEN  PARENTHESES  TO  IPSTR... 

IPSTR=KSUB( INSTR* I COL 1 ♦ 1 » I COLL-  ICO  T 1*1 ) 

8.  STRING  CONVERSION. 

TH^EE  FUNCTIONS  'RE  PROVIDED  FOR  CONVERSION  OF  STRINGS 
TO  NUMBERS  AND  NUMBERS  TO  STRINGS.  FUNCTION  INTVAL  RETURNS 
T hF  InTEGE'  VALUE  OF  THF  NUMBER  PEPRESENTFO  By  THE  STRING. 

E V EXAMPL-  » 


NUMsT«=KON(»  - >37  ") 

N-  I fiT V 4L  ( NOMST  ) 

NSUHAR  = N*N 

IN  THIS  CASE*  THE  VALUE  OF  N -ILL  BE  -B37.  SIMILARLY* 

FUNCTION  Rl.VAL  CAN  BE  USED  FOR  STP I NG-T O-PE AL  CONVERSIONS. 

AS  A SIMPLE  EXAMPLE  OF  THE  UTILITY  OF  THESE  FUNCTIONS* 

SUPPOSE  WE  WANTED  TO  READ  A DATA  CARD  WHICH  CONTAINED  A 
NUMBER  IN  PARENTHESES  SOMEWHERE  ON  ThE  CARD.  IF  WE  WISHED  TO 
USE  THE  NUMERIC  VALUE  INSIDE  THO^E  PARENTHESFS  FOR  A COMPUTATION. 
WE  COULD  On  SO  BY  FIRST  READING  THE  CARO  USING  FUNCTION  KIN* 
SF.COND*  EXTRACTING  THE  SUBSTRING  BETWEEN  THE  PARENTHESES.  AS 
ALREADY  ILLUSTRATED  For  FUNCTION  match:  FINALLY*  coding, 

N!.IM=InTVAL  ( IPSTR) 


AT  THIS  POINT 
WANT,  AND  CAN 


NUM  IS  TH^  INTEGER  VALUE  OF  THE  NUMBER 
BE  0 1 RECTl Y USED  IN  COMPUTATION. 


WE 


, - - 
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FUNCTION  KSR  PROVIDES  THF  INVERSE  FUNCTION  OF  BOTH  INTVAL 
Af>D  PLVAL.  IT  CONVERTS  A REAL  OR  INTEGER  NUMBER  TO  A STRING 
REPRESENTATION  OF  THE  NUMBER.  FOP  EXAMPLE* 

NUM=*3*  14 
NSTP=KSR (NUM) 

CALI  K0UT(6*K0\'("  NUM=») ,NSTR> 

WILL  RESULT  in  the  printing  OF* 

NUM=37 

FUNCTION  KSR  HAS  SEVERAL  OPTIONAL  FORMS  WHICH  WE  SHALL 
EXAMINE  LATF.R.  IT  IS  IMPORTANT  TO  NOTE  THOUGH  THAT  KSR  IS 
MUCH  MORE  POWERFUL  TH*N  FORTRAN  WRITE/FOPmAT  STATEMENTS 
BECAUSE  THE  SIZE  OF  ThE  STRING  CAN  dE  ADJUSTED  AUTOMATICALLY 
TO  THE  MAGNITUDE  OF  T*E  NUMBER.  FOR  FXAmPLE*  KSR  (0)  WILL 
GIVE  A I CHARACTER  STFiNGf  "0"»  BUT  KSR  (-B3. 4588655)  WILL 
PRODUCE  THf  STRING  REPRESENTATION  of  "-23 .45RA655" » WHICH  IS 
II  CHARACT  RS.  THIS  CAPABILITY  Is  CALLED  DYNAMIC  FORMATTING 
AND  IS  VERY  USEFUL  IN  MANY  APPLICATIONS. 

R.  STRING  ROUTINE  INITIALIZATION. 

dEFOPE  ANY  OF  THf  FUNCTIONS  OR  SUBRO'ITTNFS  IN  THIS 
MANUAL  MAY  BE  USED.  SUB  OUT INE  KINIT  MUST  HE  CALLED. 

FOR  THE  PRESENT*  WE  SHALL  LIMIT  OUR  DISCUSSION  OF  kINIT 
TO  SAY  THAT  IT  HAS  TH-  FORM, 

CALL  KINIT  ( > 

LATER  OTHER  ARGUMENT-  xlLL  BE  INTRODUCED. 

kinit  does  not  perform  any  function  that  is  apparent  to  thf 

USFR  BUT  IS  ESSENTIAL  TO  THE  OPERATION  OF  THE  ROUTINES.  FMLIJRF 
TO  CALL  K I IT  VlLL  RESULT  IN  THE  FATAL  DAYFILT  DIAGNOSTIC. 

STOP  KINIT  NEVER  CALLED. 

THESE  ARE  THE  BASIC  CONCEPTS  AND  FUNCTIONS  INVOLVED  WTTH 
THE  HANDLING  OF  STRINGS.  A NUMBER  OF  OTHFR  FUNCTIONS  AND 
SUBROUTINES  WILL  BE  INTRODUCED  LATER*  ANO  A NUMBER  OF 
OPTIONAL  FORMS  WILL  be  PRESENTED  FOR  THE  ROUTINES  ALREADY 
INTRODUCED.  SO  AS  TO  IMPROVE  THE  UTILITY  OF  THE  CHARACTER 
STRING  HANDLING  PACKAGE. 
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NuT  *-TI ON  USEO  IN  THIS  MANUAL 


the  Following  notation  is  useo  in  describing  the 
subrout i nec-  and  functions  in  this  manual: 

WHEN  DESCRIBING  ‘RGUMENT  LISTS  FOR  STRING  ROUTINES* 

IF  AN  ITEM  IS  ENCLOSEn  IN  ANGLE  BRACKETS*  FOR  INSTANCE. 

<INTEGER> 

Then  IT  IS  A DESCRIPTION  OF  THE  TyPE  OF  E,:TPY  REQUIRED. 

F(>o  EXAMPLE*  IF  wF  W£PF  TO  DESCRIBE  THE  SYNTAX  OF  AN 

op. '.inary  fortran  wpitf  statement*  we  might  write. 

W°lTE  ( <UN i T NO. > * <FO"MAT  LABFL>)  <VAR I Adi E L TST> 

OFTEN  ARGUMENTS  ARE  OPTIONAL.  AND  MAY  bE  OMITTED  IF  DESIRED. 

AN  ITEM  CONTAINED  IN  SQUARE  BRACKETS  IS  OPTIONAL. 

TO  EXPAND  OUR  EXAMPLE  FOP  THE  FORTRAN  WRITE  STATEMENT,  RECALL 
ThaT  THE  <F ORMAT  LABEL > MAY  BF  OMITTED  FOR  UNFORMATTED  WRITES. 
AND  THAT  Wt  NEED  NOT  HAVE  ANY  <VA^IABLE  LIST>.  THEREFORE  wE 
COULD  IMPROVE  OUR  DEFINITION  TO  RFAQ. 

W-ITE (<UNIT  NO. > I.<FoPMAT  LAhEL>)>  [<VARTABLF  LIST>1 

THREE  DOTS  (...)  IS  USEO  TO  INDICATE  AN  ELEMENT  WHICH  MAY  HE 
REPEATED  AN  ARBITRARY  NUMBER  OF  TIMES.  WE  COULD  REPLACE 
<VARIABLE  LIST>  IN  OU&  DEFINITION  OF  FORTRAN  WRITE  WITH 
CVARIARLF >r . < VAR  I ABLF> . . . 1 TO  SHOW  ONE  POSSIBLE  FORM 
OF  <VAPI ABl F L I ST>  AS  AN  ARBITRAY  NUMBER  OF  VARIABLES  SEPARATED 
BY  COMMAS. 
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GENERAL  RULES 


IT  IS  extremely  IMPOPTANT  THAT  VARIABLES  IJSEO  KITH  THE 
STRING  FUNCTIONS  AND  SUBROUTINES  HE  OF  THF  RIGHT  TYPE. 

ALL  STRING  PEPPESENTATIONS  MUST  BE  ASSIGNrO  TO  AN  INTEGER 
VARIABLE.  ASSIGNING  ft  STRING  REPRESENTATION  TO  ANY  OTHER 
T.YPE  OF  V A'  I ABLE  KILL  PFSULT  IN  THE  FATAL  OAYFILE  DIAGNOSTIC. 

STOP  ILLEGAL  STRING  REPRESENTATION 

BEING  PRODUCED  WHEN  ThE  VARIABLE  IS  SUWSEoUENTLY  REEEREnCEi) 

IN  A STRING  FUNCTION  OR  SUBROUTINE.  AS  A MEMORY  AID. 

PF.MEMBFP  ThAT  ALL  FUNCTIONS  WHICH  PFTURN  A STPING  REPRESENTATION 
AS  THE  VALUE  OF  THE  FUNCTION  bEGIN  kITH  THE  LETTER  K.  THE  ONLY 
FUNCTION  In  THIS  MANUAL  RETURNING  A PEAL  'RESULT  IS  RLVAL. 

the  only  Function  returning  a logical  value  is  lexic. 
all  other  functions  rfturn  integer  values. 

THIS  PULE  IS  SO  IMPORTANT  IT  REARS  REPEATING... 

ANY  <STRING  REPRES£NTATION>  CAN  ONLY  BE  ASSIGNED  TO  A VARIABLE 
THAT  IS  TY->E  INTEGER. 

FOP  ALL  ROUTINGS  IN  WS  MANUAL.  UNLESS  OTHERWISE  SPECIFIEO. 

ALL  ARGUMENTS  MUST  BE  TYPE  INTEGER. 

ARRAYS  OF  STRINGS 

WE  MAY  USF  APPAYS  OF  CHARACTER  STRINGS  JUST  AS  WE  MAY  USE 
ARRAYS  OF  NUMERIC  VARIABLES.  EACH  ELEMENT  OF  THE  ARRAY  CAn 
REPRESENT  .*  STRING  OF  UP  TO  CC0  CHARACTERS.  FOR  EXAMPLE. 

DIMENSION  1ST (G) 

DU  100  1=1. S 
100  1ST ( I ) =KIN(S) 

THIS  REAOS  FIVE  CAROS  AND  ASSIGNS  EACH  CArD-ImAGE-STRING  TO 
A SEPARATE  ELEMENT  OF  APRAY  1ST.  OF  COURSE.  1ST  MUST  BE  An 
INTEGER  ARRAY. 


PASSING  STRINGS  TO  SUBROUTINES 

STRING  REPRESENTATIONS  MAY  BE  PASSED  TO  OTHER  ROUTINES 
JUST  LIKE  ANY  OTHER  VARIABLE.  THEY  MAY  APPEAR  IN 
COMMON  OR  AS  ARGUMENTS  IN  A SUBROUTINE  0»  FUNCTION  CALL. 

ATTEMPTING  TO  PERFORM  ANY  OPERATIONS  ON  STRING  REPRESENTATIONS 
OTHER  THAN  THOSE  PROVIDED  BY  ROUTINES  IN  THIS  MANUAL  WILL  RESULT  TN 
UNDEFINED  RESULTS.  FOP  INSTANCE.  TRYING  TO  PRINT  A STRING 
REPRESENTATION  USING  AN  ORDINARY  PRINT  OR  WRITE  STATEMENT  WILL 
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PRODUCE  GARBAGE*  NOT  THE  STRING  DESIRED.  THE  ONLY  LEGAL 

arithmetic  operations  which  may  be  performed  on  string 
representations  are. 

1.  SIMPLE  ASSIGNMENT  statements,  for  example. 
kstr=jstr 

a.  ASSIGNING  THE  VALUE  0 TO  A STRING  REPRESENTATION.  WHICH 
DEFINES  A NULL  STpING.  FOR  EXAMPLE. 

K S T •'  = ... 

S'"TS  KSTP  TO  THE  REPRESENTATION  OF  A NULL  STRING  (0  CHARACTERS). 

there  are  two  keys  to  success  in  using  these  routines... 

1.  REMEMBEd  to  call  KINIT  BEFORE  ANY  OTHER  STRING  ROUTINE, 
a.  USE  THE  RIGHT  TYPF  OF  VARIABLE. 

KEEPING  IN  MINO  THESE  IMPORTANT  GENERAL  RULES.  LET  US 
EXAMINE  THE  STRING  ROuT  TNES  IN  MORE  OETAIt. 


integer  e»inction  kon  - define  a string  constant. 

Lr GAL  FORMATS... 

<STrING  REP.  > = KON(<LITERAL  STRING>)  fl.ll 

< STRING  REP.>  3 K0N(<LITERAL  STRING>,<LENGTH>)  ft. 21 

<STPING  RER.>  = KON(<LITERAL  STRlNO>,-<PADDING>)  r .3] 

» 

abgumfnts... 

<LITERAL  STRING>  IS  EITHER  A CHARACTER  STRING  ENCLOSED  IN 
QUOTATION  MARKS,  OR  A HOLLERITH  CONSTANT  OF  THE  FORM, 
<NO.ChAR.>H<TEXT>.  under  NO  circumstancfs 
WHATSOEVER  CAN  THIS  ARGUMENT  BE  A VAt.  IAHIE. 

(NOTE...  ON  SOME  POINTERS  AND  KEYPUNCHES.  THE  QUOTE  (••) 

APPEALS  AS  A "NOT-fQUAL"  SYMBOL.  THE  CORRECT  KEYPUNCH 
FOR  ThE  QUOTE  IS  AN  B-4  PUNCH  ON  AN  >2ft  KEYPUNCH,  ANO 
AN  8-7  PUNCH  ON  AN  029  KEYPUNCH.) 

<l.rNGTH>  lc  AN  OPTIONAL  PARAMETER  SPECIFYING  THE  COMPLETE  LENGTH 
DESIRED  FOR  THE  STRING.  IT  MAY  HE  A VARIABLE.  IF 
<LENGTH>  IS  GREATER  THAN  THE  LENGTH  OF  THE  <LITERAl  STRING>. 
ADDITIONAL  BLANKS  V ILL  BE  ADDED  AS  REQUIRED.  IF  <LENGTH> 

IS  SHORTER  THAN  ^ACTUAL  STRInG>»  THE  STRING  WILL  BE  TRUNCATED. 
<P!\D0ING>  IS  AN  OPTIONAL  PARAMETER  DISTINGUISHED  FROM  <LENgTH> 

BY  TH,  FACT  THAT  IT  IS  P»ECEEDED  BY  a MINUS  SIGN. 

<P ADD  I NG>  IS  A NUMBER  SPECIFYING  the  NUMBER  OF  BLANKS  TO  HE 
APPENDED  TO  THE  END  OF  ThE  <LITERAL  STPIMG>. 

IMPORTANT  NOTcS... 

DUE  TO  THE  INTERNAL.  DATA  REPRESENTATION  OF  BLANKS  IN  COC 
FORTRAN  EXTENDED.  IT  IS  IMPOSSIBLE  TO  DISTINGUISH  THE  NUMnfR 
OF  TRAILING  BLANKS  ON  A <L I TERAL  sTRING>.  FOP  INSTANCE. 

"HI  " ANO  "HI  " BOTH  HAVE  PRF.CISELY  THE  SAME  REPRESENTATION 

IN  COC  FORTRAN.  FOR  THIS  REASON*  IT  IS  NECESSARY  FOR 

function  kon  to  implemfnt  the  following  rule  to  avoid 

A:*3  IUUl  TY  ... 

WHfN  USING  FORM  Cl.il.  ANY  TRAILING  BLANKS  IN  <L  I TERAL  STPTNG> 

WILL  BE  AUTOMATICALLY  REMOVED  BY  *ON.  IF  <L  I TERAL  STRInG>  IS 
COMPOSED  SOLELY  OF  BLANKS.  THE  RESULT  WILL  BE  A SINGLE  BLANK. 

FROM  THIS  PULE.  IT  IS  APPARENT  THAT  KONC'HI")  AND  KON("HI  ") 

BOTH  DEFINE  THE  SAME  STRING.  NAMELY  THE  Ti’O  CHARACTER  STRING.  "HI". 
IE  IT  IS  DESIRED  TO  H*VE  ONE  OR  MORE  TRAILING  BLANKS  INCLUDED 
IN  THE  STRING*  THEN  USE  FORM  fi.21  OR  FORm  fl.3)  INSTEAD. 

FOR  EXAMPLE*  KONf"  HI",-I)  WILL  PAD  THE  <LITERAL  STRING> 

WITH  ONE  TRAILING  RLANK.  RESULTING  IN  " HI  ". 

the  characters  in  the  <i iteral  st»ing>  may  be  any  characters 
I-  THE  6*.  character  ascii  subset  with  the  exceptions  noted 

B-'LOW. 


-->■ — — . . ■: 
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1.  THF  CO'  on  (S)  may  not  be  the  last  character  of  a string. 

Two  COi  ONS  MAY  NEvE*  APPEAR  TOGETHER.  AT  LEAST  ONE  OT-hER 
CHARACTER  L»ST  INTF»Vf  N""  ■ 

3.  ThE  QUOTE  CHARACTER  ( OR  nOT-EQUALS  STGN  ON  SOME 
POINTERS  AoO  PUNCHES  1 SHOULD  NOT  HE  USED  IN  THE  FORM  OF 
<1 ITERAL  STRING>  WMIO  IS  DELIMITED  HY  THF  QUOTE  MARKS. 

IT  MAY  RE  t'SEO  FREELY  I/!  THE  HOLLE^I TH-COuNT  FORM. 

(exception...  the  character  " may  be  successfully  repwfsented 

BY  REPLACING  IT  WITH  ""  IN  A STRING  DELIMITED  BY  '•  CHARACTERS)  • 
THFSE  rules  STFM  FPUM  the  CDC  IMPLEMENTATION  OF  RECORDS * 

NOT  FROM  A-  Y IOIO^YNC- ASIES  OF  KON  (SEE  REFERENCES  lil.lAl, 

A\0  l 5 n . 


EXAMPLES  UF  LEGAL  STRTNG  DEFINITIONS... 

FUNCTION  C*LL...  RESULT  REPRESENTS... 


IA=K0N("THIS  IS  A STRING") 

IB  = KO\l(  16MTHIS  IS  A STRING) 

I C=KON ( "SO  IS  THIS  ") 
ID=KON(l3HSO  IS  THIS  ) 
IE=KON(»PAnDEO  STRING"*-!) 

I G=KON ( "P AnOEO  STRING  ".-!) 
M=KON("  TRUNCATED  STRTng»,o) 
Ih=KON<"  "> 

I JsKONdCHsAY  "HI"  ) 

I K =KON ( "SAy  ""Ml""  "*-i) 
IL=KON("LEnGTHEnEO  ST • ImG",£0) 


"THIS  IS  A STRING" 
"THIS  IS  A STRING" 

"SO  IS  THIS" 

"SO  IS  THIS" 

"PADDED  STRING  " 
"PADDED  STRING  " 
"TRUNCA" 

ii  ii 

"SAY  "HI"" 

"SAY  "HI"  " 

"LENGTHENED  STRING 


ii 


EXAMPLFS  OF  ILLEGAL  STRING  DEFINITIONS... 


FUNCTION  CALL 


REASON  FOR  FRRO° 


DATA  LS  /3hHI  ✓ 
IP=K0N(LS) 

ST- I NG=KON ( "HELLO") 

I T =KON  ("AN  .WCR:" ) 


<LITEPAL  STc  ING>  MAY  NOT  BE  \J AR. 
<STPING  RFP>  MAY  NOT  BE  REAL  VAR. 
COLON  MAY  NOT  BF  LAST  CHARACTER. 
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SUBROUTINE  KONLST  - DEHNE  ARRAY  OH  STRING  CONSTANTS 


i 


i I 


i 


L gal  format... 

call  KONLSt ( < INT.  ARRAY>*<LIT.  STPINGX .<1  IT.  STR I NG> ■ • . 1 ) f?.ll 
ARGUMENTS... 

t 

< I -jT  . ARRA v>  IS  AN  INTEGER  ARRAY  TO  RECEIVE  The  STRING 
REPRESENTATIONS. 

<1  IT.  STPI‘G>  IS  A LITERAL  STRING  AS  DESCRIBED  FOR  FUNCTION 
KON.  U MAY  NOT  bF  A VAR  T AdLF  . 

ANY  NUMBER  OF  <LlTERAL  gTRING>S  May  BE  SPFCIFIEO*  SEPARATEO  BY 
COMMAS.  AND  USING  CONTINUATION  CAROS  IF  NFEOEO. 

NOTE...  IF  THIS  FUNCTION.  OR  OTHER  FUNCTIONS  WITH  V ARI ARLE-LENGTH 
ARGUMENT  LISTS.  IS  CALLED  SEVERAL  TIMES  WITH  DIFFERENT  NUMBERS 
OF  ARGUMENTS  <IN  THE  SAME  PROGRAM),  ThE  FORTRAN  COMPILER  WILL 

produce  the  informative  diagnostic,  "argument  count  inconsistent 

WITH  PRIOR  USAGE".  ThIS  DIAGNOSTIC  SHOULD  HE  IGNORED. 

EXAMPLE  2.  . ... 

D I Mf NS I ON  ISTRG(G) 

CALI.  KINIT(  ) 

• • ♦ 

CALL  KONLST (I STRG, "MOVE", "DRAW", "DASH", "TEXT" ."ERASE") 

THE  ABOVE  EXAMPLE  IS  FUNCTIONALLY  EQUIVALENT  TO... 

DIMENSION  I S T R G ( >) 

CALL  KINITI  ) 

• • • 

1ST'  6U)  =K0N<"movE"> 

IST“G(2) =KON("DR4W") 

1ST:  0(1)  =KOf)("r  AGH") 

1ST  G(h)=KO*,("T£xT") 

IST'-G  (S)  =KON("ERASE") 

EXAMPLE  2.R... 

COMMON  /STRINGS/  JS (SO ) 

CALL  KINITU) 

CALL  KONLST  ( JS ( 1 

THIS  EXAMPi  E DEFINES  ONLY  JSUO)  THROUGH  JS(11)  INCLUSIVE. 

THE  REMAINING  ELEMENTS  OF  THE  ARRAY  ARE  NOT  AFFECTED. 
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rNTEGER  EUNrTTON  KAT  - CONCATENATE  STRINGS 


L GAL  rOLM'T... 

<STR.REP.>-KAT  <<STR.RfR.>»<bTR.RF=>.  >1  *<STR.REp>. • • I ) f 3.  1 ) 


A '-'G'JMt.  NTS**  • 

<3TR.RFP*>  IS  A STRING  REPRESENTAT ION. 

AI.L  OE  THt  STRINGS  REPRESENTED  BY  THE  ARGUMENTS  ARE  CONCATENATED 
IN  THE  SEQUENCE  GIVEN,  ‘-ND  THE  RESULTING  REPRESENTATION 
RETURNED  A$  THE  VALUE  OF  THE  FUNCTION.  Any  NUMBER  OF 
ARGUMENTS  (GREATER  Than  1)  may  elE  USED,  USING  CONTINUATION 
CAPOS  IE  NEEDED, 

E * AMPLE  3* ! * * * 

DIM‘  NS  I ON  LS(M 
CALI  KINITI  ) 

• • • 

CALL  KONLST(LS,"  IS  THE  TIME"*"  Alo  OF"*"  PARTY","  nO«») 
JS=kON("  FOP  all  GOOD  men  TO  COME  TO  ") 

UE,!CTR=KAT  (LS  (O  *LS  < l ) , JSfKONC  TH - »)  *LS  (2)  ,LS  ( 3) ) 

N<:*STR  wIl.L  then  represent  the  string, 

" NOW  IS  The  time  FOR  ALL  GOOD  MEN  TO  COME  TO  THE  AID  OE  oiPTY" 
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integer  function  ksub  - substring  extraction 


L r- AL  FORMATS... 

<STP.PFP.>  = KSuB(<STR.nFP.>»<START.COL.>)  1*4.11 

<STR.REP.>  = KSUB <<STP.wEP.>*<START. COL. >.<NO. CHAR. >)  rA.?) 

ARGUMENTS.. . 

<5TR .REP . > IS  A STRING  REPRESENTATION. 

<ST ART .COL. > IS  THE  STARTING  COLUMN  FOR  ThE  SUBSTRING  EXTRACTION 
wITHl  THt  STRING. 

<NO.Char.>  IS  THE  NUMPER  OF  CHARACTERS  TO  BE  EXTRACTED. 

IF  FORM  IS  USED.  THE  ENTIkE  REMAINDER  OF  THE  STRING 

from  character  number  ^tapt.  col.>  will  hf.  extracted. 

IF  FORM  [*♦.£?)  IS  USED.  THEN  ONLY  THE  SPECIFIEO  NUMBER  OF 

characters  will  be  extracted. 

EXAMPLE  "4.  : ... 


CALL  KINITI  ) 

JST  =KON (MMlSO/SrAO»  BlDG  3S3") 

IBL0G=KSUB( JST . 2) 

THE  VAPIABi.E  IBLOG  WILL  REPRESENT  “BLDG  1S3". 

EXAMPLE  4.'... 

DIMENSION  I AlPhA ( 2B) 

CALL  KINIT ( > 

... 

ISTH=KON("ABCOFFGHI JKLMNOPORSTUVWXYZ") 

DO  10  1=1*2* 

1.  IALRHA(I)=KSUB(lsTR*I*l) 

AFTER  THE  ABOVE  CODE  IS  EXECUTED*  IALPHA(i)  WILL  REPRESENT  "A», 
IALPHA(IO)  WILL  REPRESENT  "J".  ETC. 


• * » 

.»  . ..  J 




INTEGER  FUNCTION  LEN  - LENGTH  OF  STRING 


L'  gal  Format... 

< INTEGER  RFSULT>=LEN(<'Sr«lNG  PEP.>) 

arguments... 

<STRInG  REP.>  is  a string  representation.- 

FJNCTION  LEN  RETURNS  THE  LENGTH  OF  THE  STRING  REPRESENTED 
The  ARGUMF.:  T. 

E SAMPLE  5. . ... 

CALL  KlNlT('f) 

• • • 

KST'=KOn(»  ALPmA"> 

L5Tp=KAT  (KSTR.k-on("BETa")  ) 

N=L  N(LSTR) 

N nILL  BE  JO  AFTER  EXECUTION  0 F THIS  CODE. 
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LOGICAL  FUNCTION  LFXIC  - COMPARE  STRINGS 
L-GAL  FORMAT... 

<. TRUE./. FaLSE. >=LFXIr(<STPING  REp.>»<KEY>,<STPING  REP.>)  [6.11 


ARGUMENTS... 

<STRI NG  RER.  > IS  A STRING  REPRESENTATION. 

<K£Y>  IS  A LITERAL  KEYWORD  INDICATING  THE  OPERATOR  TO  HE  USED 

FOR  T -<E  COMPARISON.  <KE*>  MAY  ONLY  «E  ONE  OF  THE  FOLLOWING: 

••LfM  "iE"  "EQ"  "NE"  •»OE"  "GT" 

THE  KEYWORDS  HAVE  THE  SAME  MEANING  AS  THEIR  REGULAR  FORTRAN 
COUNTERPARTS. 

FUNCTION  LUlC  RETURNS  THE  LOGICAL  VALUE  .TRUF.  OR  .FALSE.. 

THE  STRINGS  Rf.PRESENTFO  0Y  THE  FIRST  AND  THIRD  ARGUMENTS  ARE 
COMPARED  LtUCALLY.  If  THE  CONDITION  INDICATED  BY  <KEY>  I"  MET. 
T^EN  LEXIC  RETURNS  .T»UF..  OTHERWISE.  .EM.SE.  IS  RETURNEO. 

THE  ST  RINGS  NEED  NOT  RE  OF  THE  SAME  LENGTH  TO  BE  COMPARFD. 

THr  SThINGR  ARF  COMPARED  FOR  OlCT IONAPY-OPDEP  USING  THE 
DISPLAY  ConE  COLLATING  SEQUENCE  OF  THE  CDC  COMPUTER. 

IN  ORDER  FOR  TWO  STRINGS  TO  BE  CONSIDERED  EQUAL  * THEY  MUST 
HAVE  THE  SAME  LENGTH  a NO  COMPOSITION.  THUS  "Hi  " AND  "Hi"  ARE 
NOT  EQUAL.  IN  FACT*  "hI»  WILL  ALWAYS  PRECEDED  "HI  " In  THE 

COLLATING  PROCESS.  SO  "hI»  IS  LESS  THAN  "Hi  ". 

IT  IS  IMPORTANT  TO  REALIZE  THAT  YOU  MAY  NOT  COf PARE  TwO 

ST'-INGS  WITHOUT  USING  FUNCTION  LE<IC.  TwO  STRINGS  WHICH  \ RE 

IDENTICAL  IN  EVERY  RESPECT  WILL  NOT  IN  GEPNEPAL  HAVE  THE  SAME 
STRING  REPRESENTATION.  AND  IF  YOU  COMPARE  THE  REPRESENTATIONS 
WITH  AN  ORDINARY  IF  STATEMENT  WITHOUT  LEXTC*  THEY  WILL 
EVALUATE  A > UNEQUAL  . T-*£  SOLE  EXCEPTION  IS  ThE  NULL  STRING, 

WHICH  IS  Ai  WAYS  REPRESENTED  6Y  THE  NUMERIC  VALUE  0. 

NOTE...  WHEN  USING  FUNCTION  LEXIC,  IT  IS  IMPORTANT  TO 
REMEMBER  T i DECLARE  LE*IC  AS  TYPE  LOGICAL  IN  THE  CALLING 
PROGRAM. 

EXAMPLE 

LOGICAL  LEXIC 
CALI  KINITI  ) 

• • • 

1ST  =KON("KOwALSKl») 

JSTp=KQN("KOwAL") 

IF U EXIC C JSTR."LT"» ISTR) ) GO  TO  10 


CONTROL  "III  BE  TRANSFERRED  to  STATEMENT  10  AT  THE  IF  STATEMENT. 
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F < AMPLE  h 


r 

: 

' 


I 


PPO  .PAM  SORT  < INPUT. OUTPUT .TAPE  =INPUT»TAPE6=0UTPUT) 

C PROGRAM  TO  <FAD  iOl  CAPOS.  SOPT  THEM  ALPHABET  ICALL  Y . 

C AND  PRINT  The  SORTFD  LIST. 

LOO  I CAL  LE  < I C 
DIMENSION  NSTP  < l »0) 

. CALI.  KlNlT  < 0 
Do  I 00  1=1.100 
10  NST  ( I ) =K IN ( 5) 

DO  0"  1=1. PR 
IP1- I ♦ 1 

0 1 /-CO  J=IP1*1. 

IF ( i E A I C ( NSTP ( j)  • "GF."  t NSTP  < I ) ) ) GO  TO  dCO 
I Tt  P=NSTR ( I ) 

NST;(I>=NSTP<J> 

NST. (J)=ITEMP 
<i00  CONTINUE. 

3 i' 0 CALI.  KOuT  (NSTP  ( I ) 1 1 ) 

CAL|  KOliT  ( NSTP  ( 1'  0 ) ♦ 1 ) 

STOP 

END 


NOTE...  THf  AMOVE  EXAmhi  E USES  A y/EPY  INEEFICTENT  SORTING 
TECHNIQUE  FOP  THE  SAKf  OF  SIMPLICITY.  SEF  REFERENCE  (11  FmR  A 
DESCRIPTION  OF  bETTER  METHODS. 


n 


INTEGER  FUNCTION  MATCH  - FIND  SUBSTRING  MATCHING  PATTERN 
L GAL  FORMATS... 


<COL.NO.>=MATCH(<5*R.>»<KCy>t<PAT.S.R*>)  f7.ll 

<COL.NO.»=  -«ATCH(<S.R.>*<KFr>»<PAT.LlST  S.  ».>♦<■  NO.  PAT.  >♦<  I mATCH>) 

t U?\ 

arguments... 

< j.  R>  IS  A STRING  REPRESENTATION  FOR  THf  STRING  TO  HE  SEaPCHFO. 
<KEY>  IS  a KEYWORD  INDICATING  The  TYPE  of  SEARCH  to  HE  MAOF-. 

SELECTED  FROM  THE  FOLLOWING  CHOICES. 

"FIRST"  "FTRSTNOT"  "LAST"  "LAsTNOT" 

<paT.S.P>  IS  The  STRING  REPRESENTATION  OF  THE  PATTERN  TO  HE  SEARC-ED 
FOR. 

<»at.list  S.R.>  IS  an  ARRAY  OF  REPRESENTATIONS  OF  PATTERNS  to 
HE  SE 'RCHED  FOR. 

<NO.PAT>  Is  THE  NUMBER  OF  ELEMENTS  IN  THE  PATTERN  ARRAY. 

<1  MATCH>  TS  RETURNED  TO  THE  CALLING  PROGRAM  AS  THE  SOHSCRTPT 
OF  <P'T.LIST  S.R>  .'HICH  RESULTED  IN  ' SUCCESSFUL  MATCh. 

Form  (7.1)  IS  USED  when  A SINGLE  PATTERN  is  TO  HE  SEAkChEO 
FOR  IN  THE  STRING.  FORM  17.>1  IS  USED  WHEN  SEVERAL  PATTERNS 
AhE  TO  HE  T"IED  IN  SUCCESSION.  ThE  KFYwOi-OS  INDICATE  ThE 
DIRECTION  C.E  THE  SEARCH.  AND  .HETHE»  THF  NORMAL  CONDITION  OR 
INVERSE  CONDITION  CONSTITUTES  A "SUCCESSFUL"  match. 

"FIRST"  SE'RCHES  LEFT  To  RIGHT  FOR  THE  ElPST  OCCURRANCE  OF 
ANY  OF  THE  PATTERNS.  "EIRSTNOT"  SEARCHES  FOR  THE  FIRST 
CHARACTER  HICH  DOES  NOT  mATCh  ANY  OF  THE  PA  I TERNS. 

"LAST"  SEA-CHES  FOR  ThE  LAST  OCCURRANCE  OF  ANY  OF  THE  »ATTFRNS 
IN  the  strtng.  "lASTvOT"  SEARCHED  FOR  THF  L Ar  T CHARACTFR 
WHICH  DOES  NOT  MATCH  ANY  OF  ThE  PATTERNS  GIVEN. 

THESE  DISTINCTIONS  ARE  REST  CLARIFIED  bY  FXAMPLES. 

EXAMPLE  7.,... 


1ST  =KON("THE  VALUE  OF  X IS  3 IF  Y IS  P AND  IF  Z IS 
ICO1  =MATCH( TS7R»"EIRST».KONf"IF") > 

L COL=MATCH<IST  ’ » "L AST" ♦ KON ("IF") ) 

THIS  EXAMPLE  RESULTS  IN  ICOL=?i  AND  LC0L=35. 

Example  7.  ... 

DIM*  NS  I ON  IPATfM 
CALL  KINIT  ( *1 

• • • 

CALL  KONLST  ( IP«,T*  "♦"«  "*"*  ) 

1ST  =KIN<5> 

ICOl  OP=MATCH( ISTP»"EIRST"* IPATtR* I^ATCH) 
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T~IS  EXAMP'  E READS  A CAPO  FROM  TAPE'7  AND  SEAWCHES  F OP  ThE 
FIRST  ARITHMETIC  OPERATOR.  ASSU  'ING  THAT  THE  CAPO  CONTAInFD. 

Then  THE  RESULTS  WOULD  hE  That  ICOIOP=7  AND  I^ATCH=J,  BfCAoSE 
Th-  FIRST  C OLUMN  THAT  MATCHED  ANY  OF  THE  LISTED  PATTERNS  WAS 
COLUMN  7,  anO  THE  PATTERN  IT  MATCHED  wAS  IPAT(T). 


EXAMPLE  7 • • » « . 


ILNR=MATCH( 1ST  ♦"LASTNQT" *KON("  ">) 

This  EXAMPiE  SEARCHES  A STRING  TO  FIND  THr  LAST  NON-BLANK 
CHARACTER  IN  The  STRING. 

notes  on  pattern  matching... 

IF  THE  MATrH  FAILS  (ThAT  IS*  THE  SPECIFIED  PATTERN  MATCHING 
CONDITION  IS  NOT  MET  AY  ANY  OF  THE  PATTERNS)*  THE  VALUE  RETURNED 
BY  FUNCTIO,,  MATCH  IS  . WHEN  USING  FORM  17. £1*  <1  MATCH>  IS 
Mr  A N I NGLE  ss  WHEN  "NOT"  KEYWORDS  ApF  USED.  SEapCHES  USING 
"LASTNOT"  \pE  NOT  RECOMMENDED  FOR  PATTERNS  LONGER  THAN  ONE 

Character. 


integer  function  kin  - input  a string 


L; uAL  FORMATS... 

<STRIng  .>  = KIn(<i_FN>)  r h • 1 1 

<STR ING  H£.-.>  = KIN(<|.FN>»<LENGTH>)  fH»?l 

<STRlNG  we  .>  = KIN ( <I_FN> *—<PaDDI NG>)  '*.11 

arguments.. . 

<LFN>  IS  ThF  LOGICAL  FILE  NAME.  IT  MAY  BE  EITHER  A UNIT 
NUMBER  OR  LEFT-JijSTIFI£D-*ITH-ZEpO-FTLL  FILE  NAME. 

<!  f.NGTH>  Ir.  THE  NUMBER  OF  CmARACTEPS  TO  HE  DEFINED  FOR  THE 
RESULT  STRING. 

< ° ADO  I NG>  IS  THE  NUMBFR  OF  BLANKS  TO  HE  APPENDED  TO  THE  END  OF 

the  string  (distingusihed  from  <length>  hy  the  minus  sign). 

IF  for*  IH.l]  is  USED  Then  the  string  RESULTING  WILL 
BE  The  length  OF  THE  &ECORO  READ  wITh  ALL  TRAILING  BLANKS 
REMOVED.  FOR  EXAMPLE,  IF  THE  INPUT  DEVICE  IS  AN  *0  COLUMN 
CARD  READER  AND  ThF  LAST  NON-BLANK  COLUMN  ON  THE  CARO  READ  IS 
COLUMN  t>?,  THEN  THE  STRING  REPRESENTED  BY  <SToiNG  REP>  WILL 
Bf  60  CHARACTERS  LONG.  IF  FORM  (H.^l  IS  USFO.  THEN  THE 
STRING  WILL  HE  DEFINED  AS  <L£nGTH>  CHARACTERS  LONu  REGARDLESS 
OF  THE  NUMPCR  OF  CHARACTERS  IN  THE  ACTUAL  RECORD.  FOR 
ETTHER  FOR*,  The  MAXIMUM  RECORD  LENGTH  IS  LIMITED  h Y THE 
COC  OPERATING  SYSTEM  TO  1GQ  CHARACTERS. 

END-OF-FILE  ENCOUNTERED  USING  EITHER  FORM  WILL  CAUSE  kIN 
TO  RETURN  THE  NULL  STRING.  FOR  FORMAT  C^.ll.  AN  ENTIRELY  BLANK 

card  will  return  a string  consisting  of  a single  blan^  c*  ••>. 
example  *.,... 

PROGRAM  TEXT ( Input, TAPS S= Input, OUTPUT) 

CALL  KINITI  ) 

• • • 

1ST  =KIN(S) 


This  EXAMP) E READS  A CARD  FROM  THE  INPUT  FILE.  THE  LENGTH  OF 
The  STRING  DEPENDS  ON  ThE  CONTENTS  OF  THE  HECORO  READ. 

EXAMPLE  H . 


PROGRAM  TESTdNPUT, OUTPUT) 
CALL  KINITI'  ) 

I NP-SL I NPUT 


1ST  =KIn(INP) 

IF(ISTR.EQ.O)STOP  "END-OF-FILE  ENCOUNTERED  ON  INPUT" 
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. ■ < ; • *, 

•’  , f * 


This  example  ILLUSTRATES  HO*  A LEFT-JUSTIFIED-wITh-ZEKO-FU l 
F I i E NAME  MAY  HE  USEO  INSTEAD  OF  A UNIT  NUMBER.  IT  ALSO 
ILLUSTRATES  A METHOO  FOR  TESTING  FOR  FND-OF-FTLE.  ALTERNATIVELY* 
THE  USER  CGULO  TEST  FoR  LEN < ISTR)  EQUAL  To  WHICH  ALSO 
would  HE  .TRUE.  WHEN  FNO-OF-FTLE  was  encountered. 

E * AMPLE  b.  ... 

PROGRAM  TESTS  (INPUT  * TAPE5= INPUT  .OUTPUT  .TAPE6=0UTPUT  . TAPf-  , > 

CALL  KINIT 

IFUE=bLTAPEl 

TST^  =KIN(IFILF,1'0) 

• • • 

REGARDLESS  OF  THE  CONTENT  OF  THE  RECORD  RFAD.  LEN(ISTR)  WILL  BE  100 
CHARACTERS.  IF  THE  RECOPO  READ  WAS  LONGER  THAN  100  CHARACTERS* 

IT  WILL  HE  TRUNCATED.  IF  IT  wAS  SHORTER  THAN  100  CHARACTERS* 

IT  WILL  8E  PAODEO  WITh  SLANKS.  THE  ONLY  EXCEPTION  IS  THAT  THE 
NULL  STRING  WILL  BE  ASSIGNED  TO  ISTR  IF  END-OF-FILE  IS  ENCOUNTERED 
ON  TAPF1. 


SUBROUTINE  <OuT  - OUTPUT  A STRING 
L*  GAL  Fij^MiTS*#* 

C'LL  KOUT(<LFN>.<STRI'<(i  REP.>)  r^.l) 

CALL  KOUT  <<LEN>»<STRI,'b  REP.>»<CAPRI AGE  CON.>)  »•«.?] 

. ARGUMENTS... 

<lFN>  IS  ThE  LOGICAL  FILE  NAME  EXPRESSED  F IT HEP  AS  AN  INTEGER 
NUM8E  p » OP  AS  A I EF T- JUST  IF  I EO- W I TH- 7E90-F ILL  FILF  NAME. 
<STRING  RE p • > IS  THE  REPRESENTATION  OF  T HE  ST»ING  TO  HF  OUTPUT. 
<CAPRIAGE  rON. » Is  A CARRIAGE  CONTROL  INDICATOR.  CHOSEN  FROM 
THE  LIST  BELOW. 

<CARR I AGE  CON •>-...  MEANING... 


i SINGLE  space  (NORMAL  PRINTING) 

d DOUBLE  SPACr  (SKIP  1 LINE) 

OVERPRINT  PREVIOUS  LINE 

-1  SKIP  TO  TOP  OF  NEXT  PAGE  (FOcm-FEED) 

(OMITTED)  NO  CARRIAGE  CONTROL  (1ST  CHAP. 

UsFD  FOR  CARRIAGE  CONTROL.  IF 
APPLICABLE  TO  PHYSICAL  DEVICE). 

EXAMPLE  R.  ... 


PROGRAM  ONE (OUTPUT. TAPF  6=0UTPUT) 

CALL  KINIT(  <) 

... 

1ST  =K0N("THIS  IS  A STRING.") 

call  kuut (b. istp. l ) 

... 

This  EXAMPLE  will  print  "THIS  IS  A STRING"  ON  THE  NEXT  t.INF 
OF  THE  OUTPUT  DEVICE. 


INTEGER  FUNCTION  KINTEK  - INPUT  FROM  TEKTRONIX  TERMINAL 
L* GAL  FORMAT... 

<STRING  RE  '■>•>  = KINTEk  (<rLENGTH>)  U0.1I 

ARGUMENTS... 

<LENGTN>  Is  THE  DESIRED  LENGTH  OF  STRING  TO  BF  INPUT.  IF 

SPECIFIED  AS  ?*  THEN  THE  RESULTING  STRING  LENGTH  WILL  HE  THE 
LENGTH  OF  THE  INRUT  RECORO  AFTER  ALL  TRAILING  BLANKS  ARE 
REMOVED.  THE  MAXIMUM  ALLOWABLE  <LENGTH>  IS  133*  LIMITED 
3 Y TH[.  TEKTRONIX  SOFTWARE  (TCS  PLOT-1 0). 


THIS  FUNCTION  IS  SIMILAR  TO  K TN*  EXCEPT  IT  IS  COMPATIBLE 
WITH  THE  1ZS  SOFTWARE  AMD  MAY  BE  USEO  ANYwHERF  TEKTRONIX 
USERS  WOULD  OROINARILv  CALL  SUBROUTINE  ATnST.  NOTE  THAT 
<LENGTH>  Is  A REQUIRE*)  PARAMETER. 

EXAMPLE  10.1... 

PROGRAM  T (OUTPUT .TAPE6I *TAPE62) 

CALL  INITT (330) 

CALL  KINIT(*) 

call  MOvA0S(O»^Or) 
ist.-=kintek  ( * ) 

• • • 

THIS  EXAMPi E MOVES  THE  CURSOR  TO  COORDINATES  (0*200)  AND  WAITS  FOR 
THE  TERMINAL  USER  TO  ENTER  A LINE  FROM  THE  KEYBOARD.  THE 
PROGRAM  CONVERTS  THE  INPUT  LINE  To  A STRImG  REPRESENTATION. 

ISTR. 


NOTE  THAT  THIS  ROUTINE  REQUIRES  THE  USE  OF  THE  TEKTRONIX 
TCS  SOFTWARE*  SUCH  AS  THE  TEK30  OR  TEK48  LIBRARIES. 

TCS  IS  A REGISTERED  TRADEMARK  OF  TEKTRONIX,  INC. 
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SUBROUTINE  KOUTEK  - OUTPUT  TO  TEKTRONIX 
Li  GAL  FORMATS. •• 

Call  koutek (<string  rpp.>>  rn.u 

call  koutek (<string  rfp.>*<carriage  con.>>  r i i • 2 i 

ARGUMENTS... 

<STRlNG  REp • > IS  T*£  REPRESENTATION  OF  THE  STRING  TO  RE  OUTPUT. 
<C APR  I AGE  GON.  > IS  CARRIAGE  CONTROl  CODE * CHOSEN  FROM  THE 
LIST  <£LOw. 

<CARR  y AGE  CON. > MEANING... 


J NEW  LINE*  THEN  OUTPUT 

d NEW  LINE*  NEW  LINE*  OUTPUT 

OMITT  0 OUTPUT  AT  PRESENT  CURSOR  POSITION 


TRTS  SUBROUTINE  IS  PROVIDED  TO  GIVE  compatability  WITH 
TEKTRONIX  TERMINAL  USERS  USING  TCS  (PLOT-IO)  SOFTWARE. 

IT  IS  FUNCTIONALLY  EQUIVALENT  TO  sr»ING  FllNCT T ON  KOUT.  RUT  MAY  RE 
JSEO  ANYWHERE  TCS  SUBROUTINE  AUUTsT  WOULD  NORMALLY  BE  USEO. 

,<QTE  THAT  THIS  ROUTINE  REQUIRES  THE  TCS  SOFTWARE  SUCH 
AS  15  CURE  NTLY  AVAILABLE  ON  THE  TEKiy  OR  TFKA8  LIBRARY. 
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INTfGLR  FUNCTION  INTVAi 


STRING  TO  INTEGER  CONVERSION 


L GAL  FORMATS... 


< INTEGER  V . • L • > = INTVal  < <STRI“«G  PFP.>> 

<INTEGE&  V^L.>  = INTVal KSTRING  R:LP.>*<IF  ERROR>) 


> 12.11 
r 12.21 


A‘  'GJMENTS... 

< STRING  PL-J.>  IS  A REPRESENTATION  GF  THE  STRING  TO  BE  CONVERTED. 
< I F ERROR>  IS  AN  INTEGE*  VARIABLE  PREVIOUSLY  ASSIGNED  TO  A 
VALID  STATEMENT  NUMBER  IN  THE  CALLING  PROGRAM  BY 
A FORTRAN  ASSIGN  STATEMENT. 


INTVAL  PERFORMS  STRING  TO  INTEGER  CONVERSION.  IN  NORMAL 
FORTRAN  APPLICATION  PROGRAMS*  OSERS  ARE  OFTEN  UNAWARE  THAT 
SUCH  CONVERSIONS  TAKE  PLACE.  HECAuSt  THE  READ  AND  FORMAT  STATEMENTS 
perform  THt  CONVERSION  AUTOMATICALLY.  FOR  example. 


REAMS*  103)  I VAi 
103  FOR  - AT (15) 

causes  the  computer  to  read  a character  string  from  unit 

AND  CONVERT  THE  FIRST  5 CHARACTERS  TO  THE  NUMERIC  VALUE  They 
REPRESENT.  TO  ACCOMPl ISH  THE  SAME  OPERATION  USING  THE 
ChAkACTER  MRING  ROUTINES.  WE  MIGHT  WRITE. 

IVAl  = INTVAUKIN1s)  ) 

THE  PRIMARY  DIFFERENCE  IN  these  TwO  EXAMPLES  IS  that  THE  NUMBER 
could  be  punched  anywhere  on  the  card  for  the  second  case. 

AND  COULD  PE  WRITTEN  WITH  OR  WITHOUT  A DECIMAL  POINT. 

AS  WE  SHALL  PRESENTLY  SEE. 

CONVERSION  RULES... 

1.  The  STRING  TO  BE  CONVERTED  MAY  CONTAIN  ANY  LEGAL  REPRESENTATION 
OF  A NUMBE-.  IT  MAY  Ht  WRITTEN  WITH  OP  WITHOUT  A DECIMAL  POINT. 
SIGNED  OP  UNSIGNED.  AND  MAY  EVEN  HAVE  AN  EXPONENT  OF  10  SPECIFIED 
If.  THE  USUAL  FORTRAN  REPRESENTATION  (E.G..  "1 .23E«.«')  . 

2.  THE  ST-ING  MAY  HAVE  ANY  NUMoER  OF  LEADING  BLANKS.  WHICH  APE 
IGNORED. 

3.  CONVERSION  IS  CONSIDERED  FINISHED  WHEN  A TRAILING  BLANK  IS 
ENCOUNTEREo  OK  THE  STRING  IS  EXHAUSTED.  WHICHEVER  COMES  FIoST. 

*♦.  if  an  illegal  character  is  encountered  in  the  string. 

CONVERSION  IS  STOPPEO  AND  ONE  OF  THE  FOLLOWING  OCCURS... 

A.  IF  < IF  £RROR>  WAS  NOT  SPECIFIED  ON  THE  CALL.  THEN 

A FATAL  DIAGNOSTIC  ERROR  MESSAGE  IS  ISSUED  AND  THE  PROGRAM  STOPS. 

B.  IF  < IF  ERR0R>  wAS  SPECIFIED*  THEN  CONTROL  IS  PASSFO 
DIRECTLY  To  THE  DESIGNATED  STATEMENT  NUMBER  IN  THE  CALLING 
PROGRAM.  THIS  FEATURE  ALLOWS  THE  USER  COMPLETE  CONTROL  OVFR 
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RECOVERY  FROM  CONVERSION  ERRORS, 

5,  AN  ENTI'-ELY  BLANK  STRING  RETURNS  0 WITHOUT  ERROR. 
EXAMPLES  uE  STRINGS  To  HE  CONVERTEO  AND  ThE  RESULT... 
IF  THE  STRING  IS...  THEN  INTvAl  RETURNS... 


C3"  ?3 

-^3  " -23 

0 ORANG  S " 0 

'ORANGES  " (ERROR) 

-2'iO.C’'  -200 

H5-*.63  " rt5<* 

.233bE*3»  233 

♦ 2 3"  2 

.75  " 0 

" j 

23»251»  (ERR  R) 


EXAMPLE  i2.1... 

PROGRAM  TEST ( I (PUT, OUTPUT*  TAPE 5=  INPUT »TAPEo  = OUTPlJT) 

CALL  KInIT(  ) 

• • • 

c READ  the  value  OF  NRUN  F ROM  ANYWHERE  ON  THE  CARO... 

NRUn=INTVAl(KI*<(3)  ) 

IF  (iiRUN.EO.C)  5TQP 


This  EXAMP;  E Shows  HOw  AN  INTEGER  VALUE  MAY  HE  READ  FROM 
ANYWHERE  0 , A CARD.  FI?ST*  KIN(5)  INPUTS  A STRING.  THE 
STVlNG  IS  THEN  CONVERTED  INTO  ITS  NUMERIC  VALUE  BY  INTVAL. 
SHOULD  THE-E  HE  INFORMATION  ON  THE  CARD  OTHER  THAN  A NUMBER* 
THE  PROGRAM  WILL  STOP  AND  A FATAL  ERROR  MESSAGE  ISSUEO. 

EXAMPLE  12.2... 

PROGRAM  TE^T2(  input. OUTPUT, TAPf-  5=IgPUT,TAP£6=0UTPUT> 
CALL  CONNEC(S) 

CALL  CONNEC(o) 

CALL  KInIT(') 

• • • 

ASSIGN  10  TO  IERREO 

• • • 

101  CONTINUE 

C READ  USERS  TYPED  VALUE  OF  NRUN... 

NRUr  =INTVAL(KM(G>  ,IERREO> 

IF  (r.RUN.EQ.C)  S TOP 

• • • 

l "i  CON  ’ I NUE 

C COME  H£RE  ONLY  ON  CONVERSION  ERROR. 

CALL  K0UT<6*K0N("8AD  DATA*  T»Y  AGATN.,,)*1) 

GO  70  17 1 


• • • 
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THIS  PROGRAM  SEGMENT  IS  SlMlLAk  TO  EXAMPLE  12.1  EXCEPT 
THaT  THE  PROGRAM  IS  I,(TrPACTI'/£»  AND  THEREFORE  THE  PROGRAM 
SHOULD  o I v/._  The  USER  N OPPORTUNITY  TO  «EnD  his  WAVS  IF 
HE  MARES  A TYPo  ERROR  w-'ILE  ENTERING  THE  VALUF  FOR  NRUN  AT 
Thf  K£Y6uA  ii.  SHOULD  I TVAL  DETECT  ILLEGAL  INPUT*  IT  WILL  NOT 
RETURN  VIA  ThE  NORMAL  PATh*  BUT  WILL  INSTEAD  HwANCH  DIRECTl  Y 
TO  STATEmE  ,t  lvj.  THUS  IE  THE  UsE  R TYPED  "12"*  INTVAL 
WOULD  RE ru»N  NORMALLY,  HUT  IF  HE  TYPED*  "lK"t  INTVAL  WOULD 
RETURN  TO  STATEMENT  l' • 


h AL  FUNCTION  PL V AL  - STRING  TO  REAL  CONVERSION 


L-  GAL 

FORMATS 

• • • 

<Rt-'  AL 

V AL • > = 

HLVAL (<STwlNG 

RFP.>) 

r 13.1 i 

<PC  AL 

VAL. > = 

rlval (<STRING 

RFP.>.<IF  ERRoR>) 

r 13.2) 

At’GUMf 

NTS... 

< STR ING  B£p>  IS  THE  REPRESENTATION  OF  THE  STRING  TO  BE  CONVERTED. 
< IF  F RR(jP>  is  AN  INTEGER  VARIAdLE  PREVIOUSLY  ASSIGNED  TO  A 
valid  statement  number  IN  The  CALLING  PROGRAM  BY 
A FORTRAN  ASSIGN  STATEMENT. 

THE  RULES  OF  CuNVcRSl ON  GIVEN  FOR  INTVAL  APPL*  ALSO  TO 
RLvAL.  WITH  THE  EXCEPTION  THAT  THE  FRACTIONAL  PART  OF  NUMHEpS 
IS  RETAINED  SINCE  RLvAL  RETURNS  A REAL  VALUE.  THE 
STRING  TO  ->t  CONVERTED  vAY  STILL  HE  WRITTEN  WITH  OR  WITHOUT  A 
DECIMAL  POrNT. 

Example  u.i... 

1ST  =KON<"*S«) 

JST  =K0M".T61’*) 

X = «L  VAL ( 1ST*) 

• • • 

«SS-Gn  2„-  10  1 RP 

Y=HL  VAL<KAI  < ISTR.JSTR)  ,Ir.RR) 

• • • 

CONrINUE 

PR  I T 1 o 

1 jb  FORMAT ( * ILLEGAL  VALUE  FOP  v»> 

• • • 

IN  THIS  EX  MPLE.  X WILL  BF  13.0  ANO  Y WILL  BE  l3.3hl. 
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INTEGER  FUNCTION  KsR  - NUMfRIC  TO  STRING  CONVERSION 


L GAL  FORMATS... 

< STRING  RE-  . > = KSR(<RAi.Uf>)  f|4.1) 

< S TP  I No  RE'-  • > = KSR  t <v/ Al  U£>»<F TN.FMT.>)  ftA.FI 

ARGUMENTS... 

<VALUE>  IS  A REAL  OR  AN  INTEGER  VALUE  TO  RE  CONVERTED. 

<FTN.FMT.>  la  A LITERAL  STRING  CONTAINING  A LFGAL  FORTRAN 
FORMAT  TO  a E USED  TO  GOVERN  THE  CONVERSION. 

KSR  IS  THE  INVERSE  FUNCTION  OF  FUNCTIONS  TNTVAL  ANO  RLV AL • 

IT  ACCEPTS  AS  Input  T^E  NUMERIC  value  OF  A PEAL  or  INTEGER 
NUMBER  ANO  RETURNS  THE  STRING  REPRESENT  AT  TON  OF  THE  NUMBER. 

IN  AN  ORDINARY  FORTRAN  WRITE  sTATEMENl » ThIS  GUNVERSION 

is  perform, o automatically  by  the  format  statement,  for 
EXf mple, 

*R! TF <6,FOO>  X 
FOO  FOR 'AT(FIO.R) 

THIS  CODE  CAUSES  THE  COMPUTER  TO  TAKE  THE  NUMFRIC  VALUE  OF  X 
ANO  CONVERT  IT  TO  A STRING  WITH  1 CHARACTERS  REPRESENTING 
The  VALUE  .'.F  X.  AND  T-tN  OUTPUT  IT  TO  THE  DEVICE.  TO 
ACCOMPLISH  THE  SAME  ThInG  USING  ThE  STRING  ROUTINES*  wE 
COULD  wRJf  » 

CALL  KOUT  (6.KS'  ( '»"  (FI  .<♦)")  ) 

This  -kill  ' AUSE  ExaCTi  y The  SAME  RESULT  AS  THE  WRITE  STATEMENT. 
The  MORE  INTERESTING  rASC  THOUGH.  THE  CASE  WHERE  KSR  IS 
USED  « I ThO1  iT  Format  SRECIF ICATION,  as  shown  IN  FORM  IiA.1). 

Fns  This  C*SL.  KSR  WILL  AUTOMATICALLY  SELFCT  a FORMAT  WHICH  WILL 
EXACTLY"  FIT  THE  MAGNITUDE  UF  THE  NUMBER*  REGARDLESS  OF  ITS  VALUE. 

CONVERSION  RULES  FOR  KSh... 

A.  IF  <r T ,.FMT>  IS  NOT  SPECIFIED... 

i.  IF  <VALUE>  IS  AN  INTEGER  NUMBER.  THEN  KSR  WILL  SELFCT  AN 
I-TYP  FORMAT  wITH  THE  SMALLEST  NUMBFR  OF  CHARACTERS 
POSSIBLE  TO  REPRtSFNT  THE  NUMBER. 

IF  <VALUE>  IS  A REAL  NUMoER.  KSR  WILL  SELECT  A REAL 
FORMAT  REPRESENTATION  AS  FOLLOWS:  IF  <VALUE>  IS  BETWEEN 
-l.E—  AND  ♦i.E9,  AN  F-TYPE  SPECIFICATION  WILL  BE  ilSED 
WITH  ALL  LEADING  BLANKS  REMOVED  AND  ALL  TRAILING 
ZEROS  SUPPRESSED  FROM  THE  NUMBER.  NUMBERS  OUTSIDE  ThjS 
RANGE  WILL  Bt  CONVERTED  USING  IPEll.S  FOR  POSITIVE  VAl UES 
AND  IPEll.S  FOR  NEGATIVE  VALUES.  THE  ONLY  EXCEPTION  IS 

the  Exact  value  , . * which  will  he  converted  to  "O".  since 

THERE  IS  NO  DISTINCTION  BETWEEN  A REAL  0.0  AND  AN  INTEGER  C 
IN  TH»  CDC  REPRESENTATION  OF  VALUES. 
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R.  IF  <FI  ,F'«T.>  15  SPrCIFIED... 

i.  A Y LEGAL  F 0 MAT  MAY  BE  USED  which  DO^S  NOT  CAUSE 
Tne  bvSTtM  MAMMiJM  RECORD  LENGTH  of  is  characters  to  he 
c*CEt0ED. 

^ . ay  trailing  blanks  generated  by  the  format  will  he 

IGNORtO.  FOP  REASONS  EXPLAINED  IN  THE  DISCUSSION  Or 
FiiNCT  ’ ON  KUN. 

i.  The  format  nfe  > not  agree  in  tyrf  with  <value>. 

F SR  example  if  a <VALUE>  of  iJ.S  IS  SPECIFIED  WITH  A 
format  of  "us)".  *s°  will  automatically  convert  the 
V ALOE  TO  INTEGER  bFFORE  CONVERSION  SO  THE  STRING  RESULT 
wO^lD  hE  " 1 i". 


E * A MhLF  1 *♦.)... 


PROGRAM  TFsT (OUTPUT. TAPEb=JU TROT) 
CALI  KInIK  ) 

• • • 

N=1 


N=1  0000 

• • • 

WRI  I -I  ) N 

*.i  FOP  AT(«  There  wFRE  * 1 1 7 * OCCuRPA*  CES.*) 

• • • 

1ST  =KAT (KONC'THCRE  WERE"*-! ) fKSR(M) ,KON("  OCCURR ANfFS.") ) 
CALL  KOOT (ovISTPtl) 

• • • 

The  ABOVE  EXAMPLE  ILLUSTRATES  ThE  DIFFERENCES  BETWEEN 
usino  an  ordinary  fortran  write  and  using  a free-format 
conversion  with  function  ksr.  assuming  n can  range  in  value  from  o 
TO  lOOftOOC  DEPENDING  uN  THE  SITUATION.  T HE  PROGRAMMER  SPEC  IF IED 
AN  17  CONV  RSI  ON  FOR  N*  WhICH  Is  THE  MINIMUM  SIZE  WHICH  WILL  FIT 
ANY  CONTINGENCY.  NOW  SUPPOSE  N WAS  i.  ThE  FORTRAN  WRI TE/ FORMAT 
COMBINATION  WOULO  PRODUCE » 

THERE  WERE  i OCCURRANCEs. 

THf  KSR  CO  .VERSION  WOULD  PRODuCt* 

THERE  WERE  i OCCURRANCES. 

WHICH  IS  M uCH  MORE  READABLE. 

THE  DYNAMIC  FORMATTING  CAPABILITY  ILLUSTRATED  ABOVE  IS 
VERY  OSEFUi  IN  PREPARING  ATTRACTlVt  OUTPUT.  ESPECIALLY  IN 
INTERACTIVJ  APPLICATIONS.  FLOATING-POINT  NUMBERS  MAY  ALSO 
BE  USED. 


; - »« 
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EXAMPLE  !*♦•£ 


PRO  -RAM  TE;>T  (OUTPUT »TAPEo  = OUTPUT) 

CALI  KI.Nin  ) 

• • • 

XVA  ==4R./<*. 

• • • 

I 5L  SH=kuN<"///») 

1ST  =KAT(I$lAS-»«3p(XVAL)  » I SLASh) 

CALL  KOUT  (o»  ISC’*  i > 

• • • 

ThE  PrINTE~>  OUT  PUT  *OULT  HE» 

///i2.23/// 

THIS  EXAMPLE  ILLUSTRATE^.  t^e  ability  of  ksp  to  select  suitable 
FORMATS  FO«  RcAL  NUMBERS. 

EXAMPLE 

PROGRAM  TEST (OUTPUT »TAPFh=OUTPUT) 

CALI  K INI  E ( > 

• • • 

X = 7 .( i/e., 

CALL  KOu T ( 6 » KS  (<» “<F1  .0)“)) 

this  example  illustrates  the  u^e  of  form  ii m.?j  and  the  resulting 
printout  woulu  read, 

17 *50 COO 


\ 

t 

i 
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SJ&ROUTI  £ kv£Pl  - p£pLAC £ STRING  WITH  STRING 
L; GAL  FORMA T . . . 

Cf'LL  KRtPL i <STPING  P£P.>»<STRrNG  REP.>)  flS.ll 

A'  r,UMf  Nl  s.. . 

< ST  RING  RE  >.>  IS  A bTLl-iG  REPRESENTATION 

KREPL  REPL*CES  THE  FIRST  NAMED  bTRING  *ITh  THF  SECOND  STRING. 
Fir.'  EaAmPl-  • 

CALL  KKtPLUSTRtKONI"  N£w">) 

Ct  jSES  THE  VARIABLE  ISTp  TO  HE  ASSIGNED  Th£  REPRESENT  AT  ION 
OE  " NEw".  THIS  SEEm^  foij  i v A|„  EN  T TO. 


I ST  ' = KON  ( " N£w*i) 


SO  IT  SEEMS  REASONABLE  TO  QUESTION  TH£  UTILITv  OE  SUHROUT I E 
XRfPL.  LAlER  WE  SHALL  SEE  THAT  KRF PL  IS  MORE  EFFICIENT  IN 
MEMORY  USA-.E  THAN  USING  THF  " = " ASSIGNMENT  FORM.  it  is 

IMPORTANT  TO  USE  KREPL  INSTEAD  OF  SIMPLE  ASSIGNMENT  STATEMENT 
ANY  TIME  ThE  ASSIGNMENT  IS  IN  A LOOP  WHERE  THE  VARIABLE  IS 
TO  BE  "RE-USED"  OVER  AND  OVER.  OTnERWlSF » (he  SIMPLE 
ASSIGNMENT  STATEMENT  ACCEPTABLE. 

NOTE  THAT  TH£  VA  IAHLE  TO  HE  REPLACED  MUST  HE  A LEGAL  STRING 
REPRESENTATION.  IT  M ' Y « OF  COURSE.  BE  THF  NULL  STRING. 

Example,  i s . i . . . 


PRO. -RAM  COPY (Input. TAPf S= I npOT .OUTPUT . TAPE6  = UUTPUT ) 

CALL  MNIT  ('  ) 

I NSTP  = v/ 
i LON  INUE 

CALL  KREPL (INSTR.KIN(S) ) 

IF  ( INSTR.EQ.O) STOP  "EnO-OF - I NPUT  « 

CALI.  KOuT  (6*INSTP«i) 

uO  T0  I 
End 

This  example  ILLUSTRATES  THE  PROPER  WAY  TO  CODE  A PROGRAM  TO 
READ  AN  INPUT  uECK  AN’)  PRINT  IT.  IT  IS  IMPORTANT  TO  USE 
KREPL  INSTrAO  OF  SIMPLY  USING  INSTR=KIN(5>  BECAUSE  THIS 
STATEMENT  la  EXECUTED  MANY  TIMES.  AS  wE  SHALL  SEE  LATE R ♦ THE 
AMOUNT  OF  STORAGE  USE  1 FOR  STRINGS  WILL  HF  THE  LENGTH  OF 
ThF  LONGEST  LINE  WHEN  ThE  PROGRAM  IS  RUN  IN  Th£  FORM  ABOVE.  BUT 
WOULD  BE  ThE  SUM  OF  ThE  LENGTHS  OF  ALL  THE  LINES  IF  A SJMPiE 
REPLACEMENT  STATEMENT  WERE  USED  INSTEAD  OF  KRFPL. 
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SUBROUTINE  KlNir  - INITIALIZE  CHARACTEP  STRING  ROUTINES 
L GAL  F i.)^M  \T#  § • 

C'LL  *INIT <<BUF.SI7E>)  M*.n 

A Ci  U M E »>4  T S • • • 

< -*UF . S I ZE > IS  THt  DIMENSION  OF  THE  MEMORY  BUFFER  TO  BE  lJS£o 
FOR  STORAGE  OF  ACT.jAL-ST^INGS.  IF  SPECIFIED  AS  0,  Th; 
OEFAui  T SIZE  OF  "1r  WILL  BE  USED. 

K.T.IT  INITIALIZES  THE  COMMON  VARIABLES  SHAPED  AMONG  ThE  Va  IOUS 
FUNCTIONS  .NO  SUBROUTINFS  IN  THE  CHARACTER  STRING  PACKAGE. 

NO-  AMLLY»  the  FORM  OF  T'lE  call  IS, 

call  kiniti  ) 

OPTIONAL  VALUES  FOR  <BUF.$IZE>  WILL  BE  INTRODUCED  IN  THE  NFXT 

SECTION. 


I 


i 

1 

■ 


DEFINITION  of  <STPTNG  REPRESENTATION* 

UNTIL  NOW • WE  HAvE  BEEN  USING  THE  NOTION  OF  <STR  I NO  R--P.> 
WITHOUT  KNOWING  WHAT  IT  IS.  A <STPlNG  REPRESENTATION*  IS  A 
SINGLE  WORD  (SIMPLE  '/ AP I ABLE ) WHICH  UNlOliELY  DESCRIBtS  A STRING 
OF  CHARAC T;  RS.  THE  RFAi)E°  WHO  IS  FAMIlIAb  WITH  THE  ARCHITECTURE 
OF  THE  COC  C SERIES  COMPUTER  WILL  KNOW  THAT  ONLY  1C  CHARACTERS 
MAY  3E  STU1  El)  IN  A SINGLE  COMPUTER  WORU.  SINCE  THE  STRING 
ROUTINES  A£  CAPABLE  OF  REPRESENTING  STRINGS  OF  UP  TO  S 30  CHARACTERS 
USING  A SI..GLE  WORD*  IT  SHOULD  BE  APPARENT  THAT  IT  15  IMPOSSIBLE 
TO  STORE  T -<t  ACTUAt  -S THING  IN  ToE  VARIABLE  REPRESENTING  Thf 
STPING. 

ACTUAILY  THE  <ST.'ING  REP.>  la  JUST  A POINTER  TO  A LOCATION 
IN  MEMORY  “ON  I A IN ING  T H^  ACTUAL-STRING.  THE  ACTUAL-STRING  IS 
A CONTIGUOUS  BLOCK  OF  CHARACTERS  OCCUPYING  AS  MANY  WORDS  As 
NEEDED.  A'TUAL  STRINS  ARE  NORMALLY  ALLOCATED  AUTOMATICALLY 
TO  A RESERVED  BLOCK  OF  MEMORY  CALLED  THE  PUFFER. 

WHEN  A <STp I NO  REP. > [5  GENERATED  AUTOMATICALLY  BY  A ST^INg 
FUNCTION  0'  5UBk0uT  I Ns-  » IT  ALWAYS  CONTAINS  THF  FOLLOWING 
StlHFIELDS  -HICH  ARE  PACKED  INTO  ThE  SINGLE  WORD  <ST  R I NG  RER.>: 


BITS  SUBFltLO  NAME 


DESCRIPTION 


0 - 8 <LENGTH> 

V - to  < SUB> 

E 7 - ^7  ^EXTENT* 

hR  - 5s  '-INTFOL0CK> 

Sh  - So  <'CHAr.i> 


NUMBER  Of  CHARACTERS  IN  ACTUAL -ST s I NG. 
SUBSCRIPT  OF  THE  HUFFER  TO  ADDPESS  1ST 
CHARACTER  OF  ACTUAL- STRING. 

THE  DlsK  EXTENT  'BLOCK)  On  WHICH  THE 
ACTUAL-STRING  is  sto»eu. 

ALWAYS  SET  TO  7b-i.  A SOFTWApE  INTERLOCK 
0ESIGNAT InG  THIS  WORD  AS  A <STRlNG  REP.>. 
DISPLAY  CODE  OF  ACTUAL-STRING  FOR  STRINGS 
OF  LFNGTh  i.  FOP  ALL  OTHER  STRINGS* 

NUT  USED  A'jU  SET  TO  OOB. 


LET  US  SEE  HOW  THE  ST'-IriG  ROUTINES  WOULD  FORM  A REPRESENTATION 
FOR  INSTR  * WHERE  INSTP  IS  DEFINED  BY* 


INSTR=K1N(S) 

FUNCTION  KIN  READS  A STRING  INTO  MEMORY*  REMOVES  ALL  TRAILING 
BLANKS*  AN1  COPIEs  THF  ^EMAININp  STRING  TO  SOMt  LOCATION  IN 
THE  BUFFER.  THIS  BUFFER  IS  CALLtO  USA*  FOR  "DYNAMIC  STORAGE 
A RF  A" . THF  STRING  REPRESENTATION  ASSIGNED  TO  INSTR  WIT L CONSIST 
OF  THE  LENGTH  OF  THE  STRING  IN  THf  LOW  ORDER  Q BITS  AND  Thf 
SUBSCRIPT  OF  DSA  NEEDED  TO  ADDRESS  THE  ACTUAL  STRING  IN  Thf 
NEXT  18  BITS.  EACH  T IMr  THIS  STATEMENT  Is  EXECUTED*  kIn 
WILL  PUT  ThE  NEW  ACTUAL-STRING  IN  THE  BUFFER  AND  UPDATE  THf 
STRING  REPRESENTATION  FOR  INSTR.  IT  "ILL  NOT.  HOWEVER*  DESTROY 
OR  REPLACE  THt  OLO  ACTUAL-STRING  PREVIOUSLY  ASSIGNED  10  INsTR. 
THIS  IS  BECAUSE  KIN  IS  A FUNCTION  AND  SO  IT  UOEsNT  "KNOW"  WHERE 
ITS  RETURNED  VALUE  WILL  BE  ASSIGNED.  THE^E  Is  NO  wAY  KIN  CAN 


tfiltitiiiiaiti 
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-UTERINE  THAT  THE  STRING  REPRESENTATION  WILL  BE  REPLACING 
IHSTR.  ON  THE  OTHER  HA  U.  IF  wE  HAO  COOEO* 

C’LL  KRERL  < INSTR.KIM  >> 

THEN  KREPL  WOJLD  KNOW  MAT  INsTR  wAS  TO  bE  REPLACED*  AND  So 
ir  WOULD  RELEASE  THE  ST  1RA0E  SPACE  USED  BY  THE  OLD  ACTUAL-STRING 
FOR  IN3TR.  THIS  EXPLAINS  WHY  IT  IS  IMPORTANT  TO  USE  KREPL  INSTEAD 
OF  USING  SIMPLE  ASSIGNMENT  STATEMENTS  WHEN  A VARIABLE  IS  RE-USED 
FOP  < ST RING  REPRESENT  TIUNS>. 

WHAT  HAPPENS  whEm  THE  dUFFER  AREA  IS  COMPLETELY  FILLED? 
P~rviuUSl.Y  THIS  REPORT  CLAIMED  MAT  ANY  NUMHER  OF  STRINGS 
CDJLO  dE  STORED.  NOW  IT  SEEMS  THAT  WE  MIGHT  RUN  OUT  OF  SPACE  IN 
THF  BUFFER  FOR  ACTUAL-STRINGS.  IN  FACT*  IF  THE  BUFFER  IS 
SMALL*  WE  SHALL  RuN  OUT  OF  SPACE  RAMFR  QUICKLY.  WHEN  THIS 
HAPPENS*  Th£  CHARACTER  STRING  ROUTINES  AUTOMATICALLY  COPY 
the  current  suffer  onto  disk  anj  clear  the  entire  osa  for  new 

ACTUAL-STRINGS.  EACH  TIME  THE  BUFFER  IS  COMPLETELY  FILLED. 

A'.'OTH£p  SLOCK  OF  DIsK  snACE  IS  AUTOMATICALLY  ALLOCATED  FOR 
ITS  STORAGE.  EACH  Of  THESE  HLOCks  Is  CALLED  AN  <ExTENT>*  ANO 
IS  IDENTIFIED  BY  A UNIQUE  NUMBER.  ME  E*TENT  BECOMES  AN 

Integral  part  of  the  ^string  »ep.>,  so  that  when  an  actuai -string 

IS  NEEDED  Y ONE  OF  ME  STRING  ROUTINES*  IT  LOOKS  TO  SFF  IF  THE 
STPlNG  WAS  DEFINED  IN  THE  SAME  <EXTENT>  As  THE  <EXTENT>  WHICH  IS 
CURRENTLY  TN  THE  BUFFER.  IF  NOT*  THE  CORRECT  <£XTENT>  IS  RECALLED 
F?OM  UlSK  INTO  THE  OS*.  THIS  PROCEDURE  IS  DUNE  AUTOMATICALLY 
WITH  A RANDOM  ACCESS  DISK  FILE  CALLED  kFIlE.  KFILE  IS  GENERATED 
Wmtn  KINir  Is  F I PST  C>LLE0»  AND  ShQULU  NOT  HE  DECLARED  ON  th£ 
PROGRAM  CAr-  0.  ALTHOUGH  THE  DISK  OPERATIONS  PFRFORMED  ARE 
MUCH  MOPE  EFFICIENT  MAN  WOULD  BE  POSSIBLE  USING  ORDINARY 
FORTRAN  READ  ANO  WRITE  STATEMENTS.  A OISK  ACCESS  STILL  TAKES 
ABOUT  1000  TIMES  LONGO  THAN  A MEMORY  ACCESS.  THEREFORE  IT 
SHOULD  BE  APPARENT  THAT  A dIG  dUFFER  (USA)  IS  UESIRAdLE  IF  A LOT 
OF  ChARACT' R STRING  OPERATIONS  ARE  TO  BE  PERFORMED*  SINCE  THE 
LARGER  ARRAY  DSA  IS.  THF  FEWER  DISK  ACCESSES  WILL  BE  REQUIRED. 

OF  COURSE*  IE  MEMORY  is  AT  A PREMIUM  IN  A CERTAIN  APPLICATION. 

THE  ROUT  I Nr  S WILL  STILL  WORK  WITH  A USA  AS  SMALL  AS  64  WORDS. 
REGARDLESS  OF  THE  SIZE  .jF  THE  DSA  dUFFER*  THE  TOTAL  STORAGE 
CAPACITY  FnR  ACTUAL-STR INGs  WILL  dE  SEVERAL  MILLION  CHARACTERS. 

It;  ALL  CASES  Th£  USER  WILL  HUN  OUT  OF  MEMORY  FOR  STORAGF  OF 
<STRING  REPRESENT  AT IONS > dEFORE  STORAGE  FOR  ACTUAL-STRINGS  IS 
EXHAUSTED*  SUPPORTING  THE  CLAIM  TO  VIRTUALLY  UNLIMITED  STORAGE. 

IN  ORDER  TO  CONSERVE  SPACE  IN  THE  dUFFER.  SEVERAL  SPECIAL 
CASES  ARE  DEFINED  FOR  FORMING  STRING  REPRESENTATIONS: 

1.  IF  THE  ACTUAL-STRING  IS  ONLY  ONE  CHARACTER  LONG.  THEN  ThE 
ACTUAL  STRING  will  NOT  HE  ALLOCATED  IN  THF  BUFFER.  BUT  WILL  BE 
STORED  DIR'CTLY  IN  MF.  UPPER  H BITS  OF  THE.  <STRING  REP.>. 
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SlMi.lv  CHAiACTiR  sTRI“(,s  ARE  FREUUEnTlY  EnCOUNTE RE U AND  This 
SV'ES  itUH  MEMORY  SPACE  AND  ACCESS  T I ME  . 


r-.  ST  - l NG  wNiTANrS  (DEFINED  HY  FUNCTION  * ON  AND  SUBRUUTIN*  KONLS  T ) 

A - NOT  CO*-  ILU  INTO  T hE  OSA  BUFFER  BFCAUSf  THF  CONTENTS  OF  A 
ST  INu  CONsTANf  SHOULD  NEVER  CHAN'.F  . THE  AC T UAL-STR  1 NG  IJSFI) 

I*.  THE  AC  T > lAL-STRI  NO  --ASSFO  AS  AN  ARGUME'NT  * AN!)  ThF  VAI  HE  OF 
<S  JB>  IS  T i E SnHSCPIPT  OF  USA  NECtSSARY  To  ADDRESS  THT  ACTuAL-STR  IMF, 
Ifi  THf  USE  -’S  PROGRAM.  [T  SHOULD  of  NOTED  THAT  <SUrt>  MAY  Ht  A 
NEGATIVE  NUMBER  In  this  CASE  IF  THF  LOCATION  OF  THE  ACIUAI  -STRING 
IS  « MEMORY  ADDRESS  LOWER  than  THfc  ADDRESS  OF  l)SA(l).  A 

C onsf duencf  of  this  system  IS  That  programs  using  overlays  must 

MAINTAIN  The  OVERLAY  DEFINING  A GIVEN  STRING  CONSTANT  IN  CORE 
WHENEVER  THAT  STRING  CONSTANT  IS  REFERENCED  BY  ITS  <STRING  REP.>. 

Tor  si*  HUS  COMPRISING  < I NTERLOCK  > AkL  A RATTIRN  OF  HITS 

which  wool*)  not  normally  be  found  in  that  position  in  any  rfal 

OR  INTl-GER  NUMBER.  AIL  STRING  ROuTINfS  WHICH  DEFINE 
A STRING  R SULT  SET  T I , PATTERN*  AMO  ALL  ROUTINES  EXPECTING  A 
<STRING  RE-  .>  FOR  AN  ARGUMENT  ChlCK  FOR  If.  IF  THf  InTFRLuCK 
PATTERN  DO,  S NUT  EXIST*  THE  DIAGNOSTIC  "ILLFGAL  SIRING  PE  RpF  SEN I A I I ON 
IS  ISSUED.  ThIj  HELPS  TRAP  BOGUS  STRING  REPRESENTATIONS  wmICh 
WOULD  uThE  WISE  YIELD  UNPREDICTABLE  AMD  UsUALI  Y DISASTERUUS 
ERRORS. 


* 


SUBROUTINE  KINTT  °evisited 

NOw  T -AT  we  UNDE  STAND  How  ACTUAL-STRINGS  ARE  ALLOCATFO 
TO  MEM ORY  AND  DISK.  W£  4«e  READY  ro  REVISIT  SUBROUTINE  KINIT  to 
SEE  HOW  WE  MAY  ALTER  THE  SIZE  OF  THE  BUFFFR  IF  WE  WISH. 
SUBROUTINE  KlNIT  HAS  A DEFAULT  BUFFER  IN  LABELLED  COMMON  4s 
F OL  LOw } . . . 


COMMON  / K ijPACF  / OSA(;-lE) 

IN  ORDER  TO  CHANGE  the  DUFFER  SIZE.  ALL  WE  have  TO  DO  IS 
RE-DEFINE  the  COMMON  BLOCK  IN  THE  ma In  PRogpAm.  ANO  USE  The 
NF * DIMENSION  IN  T^E  CALL  TO  KlNIT.  FOR  FXAMPLE.  TO  INCRE«SE 
THF  BuFFEk  SIZE  from  sib  TO  2 <**  wO'RDbt 

PROoR AM  BIG ( INPUT  t OUTPUT) 

COMMON  / KSPACc  / ObA 
CALI.  KINIT<R04m) 


... 

THE  0 1 MENS I UN  CHObEN  FO  OSA  SHOULD  BE  AN  EXACT  MULTIPLE  OF  6*. 
WHEN  THIS  --ETHOD  IS  USED*  A NUMBEp  OF  NON-FATAL  LOADER  ERRORS 
APE  GENERATED: 

COMMON  BLOrK  REDEFINITION  - KSPACE 
LAST  PROGRAM  READ  - XXXXX 
LAST  FILE  ACCESSED  - XAXXX 

THESE  UIAG.OSTICS  RAY  BE  IGNO-EO. 
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jUfl^G'iT  r\-  KPLS 


EL  EASE  ST~TNu  Sp  ArF  NO  LONGER  NEEDED 


L -AL  FO-'MvT... 

C'LL  KRLSUSTRInG  pcp. >.( #< STRING  Rtp.>...l)  fl7.ll 

' ) 

A GUMENTS. . . 

<STRInG  CE^.>  IS  T-t£  v I kjG  REPRE->FnT  aTIOn  OF  Th£  STRING  -hJCH 
IS  NO  LONGER  NEF  -t  >. 

T>  ■ I S ■•'OUT  I of  MAY  af  CAMEO  *ITH  any  NUMriEJ  OF  ARGUMENTS. 

thv  string  space  in  t- f.  buffer  allocated  fop  the  strings  nhose 

REPRESENTATION,  ASF  PASSt'O  as  ARGUMENTS  *ILL  re  FREEO-UP  Foe  RF-USfc. 
t<*MRLE  17.1... 

CALL  RRLSf ISTR. jSTR»KbTR) 

T-'IS  CALL  ILL  FREF  S-'ACE  OCCoPIED  H Y IST-.JSTW*  Aigj  KST«. 

IF  ThF  ACT1  iAL -STRINGS  FOR  ANT  OF  THESE  STRINGS  ARE  STORED 
I IN  A LOCATION  OTHt  J Tha  ••  ARRAY  OSA«  ThAT  PARAMETER  «ILL  HE  IGNORED. 


SUBROUTINE  KRLSL  - RELEASE  SPACE  F OR  ARRAY  OF  STRINGS 


L?  GAL  FORHftT... 

CALL  KRLSL (<STR. REP. APRAY>t<NO.RLS.>)  (IF. II 

ARGUMENTS... 

<5TR.REP. ApRAY>  IS  THE  FIRST  ELEMENT  OF  Th£  APRAY  TO  HE  RELEASED. 
<NO.RLS.>  IS  THE  NUMBER  OF  ELEMENTS  TU  BE  PELEASEO. 

KRLS  MAY  BE  USED  TO  RELEASE  ThE  SPACE  USED  FOR  STORAGE 
OF  ACTUAL  STRINGS  FOR  ALL  OR  PART  OF  AN  ARRAY  OF  STRINGS. 

EXAMPLE  18.1... 

PROGRAM  TEST(InPUT.OUTPUT) 

DlMfNSlON  ISTP(I  VO) 

CALL  KINIT(') 

DO* 1 Otf  1=1*100 
100  IST»(I> =KlN<5) 

c ***  LAST  -*0  STRINGS  NO  LONGER  NEEDED.  FREE-UP  SPACE. 

CALL  KRLSL (ISTo(ol)  *<»<>) 

• • • 

THE  CALL  To  KRLSL  WILL  FREE  BUFFER  SPACE  TN  ARRAY  DSA  PPEVrOUSL* 
OCCUPIED  By  THE  ACTUAL-STRINGS  FOP  ISTR(6|)  THROUGH  ISTPUuO). 

THE  SPACE  RECLAIMED  WILL  BE  USED  oY  THE  STRING  ROUTINES  FO<y 
STORAGE  OF  NEW  ACTUAL-STRINGS  AS  NEEDED. 


INTEGER  FU;CT ION  KDC  - DECODE  ACT JAL-STRImG  TO  STRING  REPRESENTATION 


Lf  GAL  FQPMaT... 

< S T R I N G RE~.>  = KDC  ( < sC TUAL-STR I NG> . <COL . I >.<LENGTH>)  f 19.11 


arguments... 

<ACTUAL-ST  ■ ING>  IS  A vAolAbLE,  ARRAY.  OR  LITERAL  STRING  CONTAINING 
THE  AiTUAl  STRING  TO  dE  DECODED. 

<COL • 1 > IS  THE  NUMBER  OE  THE  FIRST  CHARACTER  IN  THE  <ACTUAl -STRING> 
TO  HE  DECODED. 

<LENGTH>  Is  THE  NUMBER  OF  CHARACTERS  TO  BE  DECODED. 

KDC  CAN  3E  USED  IN  A MANNER  SIMILAP  TO  THE  FORTRAN  EXTENDED 
DECODE  STAIcMENT.  KDC  -'ILL  RETURN  The  STRING  REPRESENTATION 
OF  A STRING  OF  DISPLAY -CODE  CHARACTERS  PACKED  10  TO  THE  WO°D. 
STARTING  Ij.  CHARACTER  POSITION  <C0L.1>.  <LF.NGTH>  CHARACTERS 
LONG.  THIS  SOdSTRlNG  IS  COPIED  InTO  THE  CHARACTER  ROUTINE^  BUFFER 

prior  to  generation  of  the  string  representation. 

EXAMPLE  19.1 

PROGRAM  TESTT I SPOT. TAPF 5= Input .OUTPUT »TAPE6=0UTPUT) 

DIM" NS ION  I BCD  < 1 ) 

CALL  KI.\(IT<  ) 

• • • 

PEA H(S.^O) ( I BCD ( L ) .L=l.«> 

2,  FOR  ATT  7Alo.A<?> 

• • • 

1ST  =KDC ( IpCQ.^1 .2  ) 


THIS  EXAMPl E REAOS  A CARO  IMAGE  INTO  ARRAY  IBCD  IN  DISPLAY  CODE 
FORMAT.  AN!'.  THEN  EXTRACTS  THE  CONTENTS  OF  COLUMN  21  THROUGH  40 
AS  STRING  REPRESENTATION  IsTP. 
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SlHxOUTlNE  KLC  - ENCODE  STRING  REPRESENTATION  TO  ACTUAL-STRING 
L'GAL  FORMAT... 

C 'LL  KEC(<STRlNb  RFP.>*<DEST.>*<COL.l>)  fPQ.ll 

A-'GUMENT  LIST... 

<STRlNG  RER.>  IS  THE  REPRESENTATION  FOR  ThE  STRING  TO  BE  E"COOEO. 
<OEST . > IS  A VARIABLE  OR  ARRAY  TO  RECEIVE  THE  ACTUAL  STRING. 
<C1L.I>  IS  THE  CHARACTER  POSITION  IN  THE  <D£5T . > WHERE  THE 
ACTUA, -STRING  IS  TO  START. 

THIS  SUBROUTINE  PROVIDES  ThE  INVERSE  FUNCTION  TO  FUNCTION  KDC « 

A NO  IS  SIMILAR  TO  THE  FORTRAN  EXTENDED  ENCODE  STATEMENT. 

THE  DISPLA/  CODE  ACTUAL-STRING  REPRESENTED  BY  <STR ING  R£P.>  IS 
COPIED  INTO  THE  DESTINATION  ARRAY  OR  VARIABLE  STARTING  AT  <COL.l>. 
THE  NUMBER  OF  CHARACTERS  ENCODED  WILL  BE  lEN(<STRING  REP.>). 
CHARACTERS  IN  <D£bT.>  BEFORE  <CHA».I>  AND  AFTER  Th£  EnD  OF  THE 
ACTUAL-STRING  WILL  NOT  BE  AFFECTED. 

EXAMPLE  <>0.1... 

PROGRAM  TEST (INPUT* OUTPUT »TAPEG= INPUT »T APE6=0UTPUT > 
DIMENSION  IBCO(l  ) 

CALL  KINITt  )) 

• • • 

N=<d? 

EMC  , OE (40*105*  -bCO) N 
If  5 F0Rk.AT(*  OF  THf  »tl2*  * ENTRIES  *) 

• • • 

J=1  I 

ISTr=KAT(KSR(J) »KON("  WERE  VALID.")) 

CALL  K£C  ( ISTR*  l8CD*<ffJ) 

PRIf  T <?00*  (IBCO(L)  *L  = l»-*> 

20 0 FORMAT ( 3A1 A5) 

• • • 


This  EXAMPLE  WILL  RESULT  IN  ThE  PRINTING  OF* 


OF  THE  27  ENTRIES  11  «E >E  VALID 


APPE"OIX  A 


CONTROL  CAROS  TO  GAIN  ACCESS  TO  kSPLIB  ROUTINES 

the  following  se juence  of  control  capos  shoulo  at  executed 

FOR  BATCH  PROGRAMS  PRIOR  TO  LOAOING  THE  FORTRAN  OBJECT  PROGRAMS 

ATTACH, KSPl I6,I0=CARBrEY. 

LIBRARY, KSPLIB. 

EXAMPLE  PROGRAM  DECK  FOR  BATCH  JOB... 

MY  JOB. 

COMMENT. <XxX-YYY*J000  01 ,MYNAME  BILLING  INFO  CARO 
FTN (EP, A , T > 

ATTACH, KSPL 16* IO=CARBPEv. 

LIBRARY, KSRLIB. 

LGO. 

7/8/9 

PROGRAM  CHARA(  INPUT. OUTPUT, TAPFn=0(iTPUT) 

CALL  KINIT(') 

• • • 

END 

7/8/9 

OATA  CARDS  used  by  program  chara 

• • • 

6/T/8/9 


INTERACT  I Vf  PROGRAMS  COMPILED  USING  INTERCOM  MAY  USE  THE 
FOLLOWING  SEQUENCE  OF  COMMANDS*. 

ATTACH,KSPlIB,ID=CAR8rEY. 

RIJN.F  ,N. 

XEO*LDSET=LlB=KSPLia.LO'D=LGO. 


the  source  oeck  for  the  routines  described  in  this  manual 

HAS  NOT  been  INCLUDED  OuE  TO  ITS  LENGTH.  THE  ROUTINES  ARE 
WRITTEN  IN  CQC  FORTRAN  EXTENDED  AnD  IN  CDC  COMPASS  ASSEMBLY 

language . 

REQUESTS  FOR  COPIES  OF  ThE  SOURCE  DECK  SHOULD  BE  MAOE 
IN  WRITING  TO  CHIEF,  SCIENTIFIC  ANO  ENGINEERING  APPICATIONS 
DIVISION,  MANAGEMENT  INFORMATION  SYSTEMS  DIRECTORATE*  ARRAOC0M, 
DOVER*  N.J..  AFTER  DISTRIBUTION  IS  APPROVED,  THE  ROUTINES 
WILL  BE  PROVIDED  ON  A USER-SUPPLlEO  7 OR  9 TRACK  MAGNETIC  TAPE. 
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appendix  r 


SAMPLE  PROGR'-MS  USING  KSPLIfa  ROUTINES 

the  following  pages  give  two  sample  programs,  a brief 
explanation  OF  EACH  program  is  provioed*  along  with  a listing 

OF  THE  PROGRAM  ANU  THE  OUTPUT  FROM  A SAMP) E RON. 
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r X AMPLE  PROGRAM  i - FOUR-FUNCTION  CALCULATOR 

THIS  PROGRAM  INTERPRETS  ARITHMETIC  EXPRESSIONS  IN  A FORM 
AS  WOULD  df  USED  ON  AN  ORDINARY  FOUR-FUNCT  ION  CALCULATOR. 

FOR  EXAMPLE * IF  THE  USER  TYRES* 

3*1.20  *17  = 

THEN  THE  program  *ill  PRINT. 

20.60 

THIS  PROGRAM  ANALY7ES  THE  EXPRESSION  LEFT  TO  RIGHT.  WITHOUT  ANV 
HIERARCHY  OF  OPERATORS*  UNTIL  AN  «•=••  SIGN  IS  ENCOUNTERED. 

THE  RESULT  IS  THEN  PRINTED.  PARENTHESES  ARE  NOT  PERMITTED. 

THE  PROGRAM  MAY  BE  RUN  EITHER  IN  HATCH  MODE  OR  INTERACTIVELY 
PROVIDED  Input  ANO  OUTPUT  FILES  are  CONNECTED.  LIKE  ALL  The 
example  programs  in  This  manual*  little  or  no  error-checking  is 
PEPFORMEO  in  The  INTEREST  OF  simplicity. 

THE  OPERATION  OF  ThE  PROGRAM  IS  SIMPLE.  THE  FIVE 
OPERATORS  ARE  DEFINED  BY  A KONLST  CALL.  THE  PROGRAM  SEARCHES 
THF  INPUT  LINE  CHAPACIER-BY-CHARACTER  FOR  AN  OPERATOR.  WHEN  IT 
IS  FOUND.  iOPN  IS  SET  EQUAL  TG  THE  SUBSCRIPT  OF  THE  OPERATOR 
APPAY  CORRt SPONGING  To  THE  NE*  OPERATOR.  ALL  THE  COLUMNS  UP  TO 
BUT  NOT  INCLUDING  THE  OPERATOR  ARE  ASSUMED  TO  CONTAIN  THE 
OPERAND*  Which  is  CONCERTED  from  STRING  TO  NUMERIC  BY 
FUNCTION  RLVAL.  THE  PORTION  OF  THE  STRING  PROCESSED  IS 
OISCAPOEO  GY  EXTRACTION  OF  THE  REMAINDER  OF  THE  STRING* 

AND  THE  PROCESS  REPEATED.  EACH  TIME  BOTH  OPERANDS  AND  THE  OPERATOR 
HAVE  BEEN  DETERMINED.  T«E  RESULT  IS  COMPUTED.  WHEN  "="  IS 
REACHED.  The  RUNNING  TOTAL  IS  PRINTED  USING  THE  DEFAULT 
CONVERSION  OF  FUNCTION  KSR. 

ALTHOUGH  THIS  ENTIRE  PROGRAM  REQUIRES  LESS  THAN  30  STATEMENTS 
TG  IMPLEMENT  USING  THf.  CHAPACTER  STRING  PACKAGE.  IT  WOULO  TAKE 
MORE  THAN  A THOUSAND  LINES  OF  CODE  TO  IMPLEMENT  THE  EQUIVALENT 
PROGRAM  WITHOUT  THF  STRING  ROUTINES. 
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*****  fortran  » isting  of  e*ample  program  i ***** 

PROGR  M FoNK^f  INPJT*  TAPES=INP(JT»0UTPiJT»TAPE6=0UTPUT> 

*****  FOUR-FUNCTION  CALCULATOR  EMULATION  PROoPAM  ***** 

TH i i program  SO!  VES  ARITHMETIC  EXPRESSIONS  ENTERED  AS  YOU 
WU"LO  ENTER  ThER  ON  AN  ORDINARY  h-F UNCTION  CALCULATOR*  E • <i  • » 
'V'3.7h  - P.t>*  ■ B = " • A NO  PRINTS  ThE  VALUE  OF  THE  RESULT.  E.G.. 

FVA'  UATION  PRjCttOS  LEFT-TO-RI&HT  wIThQUT  HIERARCHY 
OF  OPERATORS*  UNTIL  " = " lb  ENCOUNTERED.  PARENTh£sfS  ARE  NOT 
PERMITTED.  PROGRAM  HALTS  WHEN  "STOP"  ENCOUNTERED. 

LOGIC  'L  L'XIC 

i)  I MEN  ~ I ON  I OPFR  ( c- ) 

INITIALIZE  PROGRAM.  SET  STRINGS  TO  NULL.  DEFINE  OPERATORS. 
CALL  KINIT(O) 

ISTP  = 

JSTR  = 

CALL  KONLST ( IOPE 
ISTOP-KONC'STOP") 

CONTINUE 

RE  MO  NEXT  EXPRESSION.  HALT  IF  "STOP"  FNTEREO. 

ANS=0. 

IOP=j 

call  KRERLdSTR.Kl'  (S) ) 

IF(LE<IC(ISTR*"EO".ISTOP) )STOP 
CALL  kRERLIJSTR.ISTR) 

CONTI  JUE 

LOrATE  NEXT  OPERATOR  IN  STRING.  IOPN  IS  SUBSCRIPT  OF  IOPER. 

I COLOP=MA  TCH  ( 1ST.-’ * "F IRST " * I OPFP  . > . I OPN) 

IF(IOPN.EO.O)STOP"ILLFGAL  OR  NULL  EXPRESSION." 

EVALUATE  NUMBER  PRECEEOINS  OPERATOR. 

VAL  = RLVAL(KSU8( ISTR.i. ICOLOP-I) ) 

UPDATE  ANSWER. 

IF  ( IOo.EO.O)  ANSsvAl. 

IF(IOp.lQ.1)ANS=AnS*VAL 
IF (IOP.EO.^) ANS=ANS- VAL 
IF  < IOP.EQ.i) ANS=ANS*vAL 
IF  < IOp.EQ.**)  ANS=ANS/ VAL 

OISCARO  PORTION  OF  EXPRESSION  ALREADY  EVALUATED. 

CALL  kRERL(ISTR*kSuB(ISTR»ICuLOP*1) ) 

IOP-IOPN 

IF ( IOp.NE.5) GO  TO  11 

COmE  HERE  WHEN  "="  ENCOUNTERED.  PRINT  RESULT. 

CALL  KREPL ( JSTR.KAT ( JSTR.K5R ( ANS) > ) 

CALL  KOUT(6*JSTR.I) 

GO  TO  1 
END 
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SIMPLE  OUTPUT  FROM  PROGRAM  FUNK4  RUN 


A 


2*2  = *• 

2*3  ♦!. 26318=7. 28318 
100/3  ♦ 50  -.6666  =82.6667333333 
26  ♦ 23  ♦ 2l*^C*17*i01-117=91. 
2*222.1  - 100.2  =3*4. 


SAMPLE  PROGRAM  ^ - ALGEiRAIC  ASSIGNMENT  STATEMENT  INTERPRETER 

THIS  PROGRAM  IS  A 'UCH-ExPANDED  VERSION  OF  PROGRAM 
THIS  PROGS  * M INTERPRETS  COMPLETE  ALGEBRAIC  ASSIGNMENT  STATEMENTS 
SIMILAR  TO  FORTRAN  ASSIGNMENT  STATEMENTS*  INCLUDING  PARENTHESES 
AND  VAR  I Ad|  ES.  FOR  EXAMPLE*  IF  ThE  INPUT  LINE  READ* 

XOISPERSIO  = 1 / U ♦ I.S77) 

then  the  program  would  print* 

XDISPERSIO  = * 879S63SH'  3A7 
IF  THE  NEXT  INPUT  LINt  'EAO* 

YOISPERSIO  =1  ♦ 2*  ( ( J -xOI  sPERSIUm)  / ( XL)  I SPERS I ON**  . 707)  ) 

THEN  THE  RESULT  PRINTED  WOULD  READ* 

YOISPERSIO  = 4.5m783mS9936 

THE  PROGRAM  WILL  AUTOMATICALLY  REMEMBER  ThE  VALUE  OF 
THE  VARlABlE  XniSPERSlO'J  FROM  THE  PREVIOUS  EQUATION. 

THE  OPERATORS  ALLOWED  INCLUDE  ♦»  - (INCLUDING  UNARY  NEGATION). 

*,  /*  •**  ANO  PARENTHESES.  THE  HIERARCHY  OF  EVALUATION  IS  THE 
SAME  AS  FORTRAN  (E.G.,  MULTIPLIES  HONE  BEFORE  ADDS  IN  THE  ABSENCE 
OF  PARENTHESES) . VA-lABLES  MAY  8F  ANY  LENGTH.  UNLIKE  FORTRAN. 

however*  Imbedded  blanks  ape  nut  permitted  in  numeric  constants 
OR  variables,  no  distinction  is  made  between  real  and  integer 

VARIABLES  OR  CONSTANTS*  ALL  ARITHMETIC  IS  PERFORMED  IN 

floating  point  mode,  as  in  the  first  example*  almost  no  error 
checking  is  done  in  order  to  keep  the  program  reasonably  simple. 

IN  ADDITION  TO  ILLUSTRATING  SOME  TECHNIQUES  FOR  USAGE  OF 
THE  STRING  ROUTINES*  THIS  PROGRAM  CAN  ALSO  SERVE  AS  A 
PEDAGOGICAL  TOOL  FOR  TECHNIQUES  USEO  IN  HIGH-LEVEL  LANGUAGE 
COMPILERS.  TH£  METHOD  USED  FOR  INTERPRETING  THE  ASSIGNMENT 
STATEMENTS  IN  THIS  PROGRAM  IS  FUNDAMENTALLY  THE  SAME  AS  THP 
TECHNIQUE  USED  IN  MOST  MODERN  HIGH-LEVEL  LANGUAGE  COMPILERS. 
REFERENCE  f*I  GIVES  FARTHER  INFORMATION. 

THERE  ARE  TWO  BASIC  TOOLS  USED  IN  THIS  PROGRAM  THAT  MAKE 
POSSIBLE  T-iE  TRANSLATION  PROCESS  ! POLISH  NOTATION  AND  THE 
PUSHDOWN  STACK.  dECAuSE  OF  ThE  PROLIFERATION  OF  HEwL I TT-PACK ARO 
CALCULATORS*  IT  IS  ASSUMED  THAT  THE  PRINCIPLES  OF  OF  POLISH 
NOTATION  A-  E WELL-KNOWN  TO  THE  READER.  TO  REVIEW  BRIEFLY. 

POLISH  NOTATION  IS  A SYSTEM  ALLOWING  US  To  WRITE  AN  EXPRESSION 

of  arbitrary  complexity  without  parentheses  and  without 
Ambiguity.  FOR  EXAMPLE*  AN  ALGEHRAIC  (OR  "INFIX")  EXPRESSION 
SUCH  AS* 

X = ,'*<  J*4) 

COULD  BE  W;  ITTEN  IN  POLISH  NOTATION  AS* 
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3 4 ♦ <;  * 
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THIS  FORM  IS  USUALLY  CALLED  REVERSE  POLISH  NOTATION  <RPN)  SINCE 
ThE  OPERATORS  FOLLOW  THE  OPEPANUS.  Ml  AOVANTAGE  OF  POLISH 
NOTATION  IS  THAT  THE  EXPRESSION  IS  SIMPLY  SCANNED  FRUM  LEFT 
TO  RIGHT  A .0  EVALUATES  AS  EACH  OPERATOR  IS  ENCOUNTERED. 

USERS  OE  POCKET  CALCULATORS  BASEO  ON  RPN  ARE  ALREADY  WELL 
A3UAINTED  w I T H THE  PRINCIPLES  OE  POLISH  NOTATION*  ALTHOUGH  THEY 
MAY  NOT  BE  AWAwE  OE  If.  THESE  USERS  may  ALSO  HE  AWARE  OE  THE 
TOOL  THAT  MAKES  THE  EXECUTION  OE  THE  POLISH  EXPRESSION  POSSMLE: 

the  push  down  stack.  the  operation  of  a pushdown  stack  ts 

iLLUSTPATEn  IN  FIolIRE  6-1.  THE  STACK  MAY  BE  v/ISUALIZLO  AS  A 
STACK  OF  T AYS  IN  A CAFETERIA.  ThE  LAST  TRAY  PLACED  ON  THE 

stack  is  always  the  first  one  taken  off.  such  a stack  is 
S'METIMES  CALLED  A LAs T-IN-F I hST-OUT  STAC**  OR  LIFO.  TO 
EXECUTE  A COLISH  EXPRESSION*  PROCEED  As  FOLLOWS* 

1.  MOVING  i EFT  TO  RIGHT,  IF  AN  OPERAND  IS  ENCOUNTERED*  PUS«  IT 
ON  THE  STA  K. 

2.  WHEN  AN  OPERATOR  Is  ENCOUNTERED*  POP  T LAST  TWO  OPERANDS 
OEE  THE  STACK  and  PEREORM  THE  INDICATED  OPERATION  ON  THEM. 

3.  PUSH  THE  RESULT  BACK  ON  THE  STACK*  FORMING  A NEw  OPERANn. 

WHEN  USING  AN  RPN  CALCULATOR.  THE  "ENTER"  KEY  IS  USED  TO  PuSH 
AN  OPERAND  ON  THE  STACK.  THE  OTHf R OPERATIONS  APE  PERFORMED 
AUTOMATICALLY  BY  THE  CALCULATOR. 

THE  Pi iSH— DOWN  ST'.Ck,  WHICH  M THE  KEY  TO  EXECUTING  POLISH 
NOTATION.  IS  ALSO  THE  KEY  TO  CONVERTING  INFIX  NOTATION  TO 
POLISH.  FIGURE  9-1  ILLUSTRATES  A FLOWCHART  FOR  CONVERTING 

algebraic  expressions  to  polish  expressions  using  a stack. 

FIGURE  B-4  SHOWS  HOW  *E  MAY  USE  Th£  SAME  STACK  TO  EXECUTE 
The  POLISH  EXPRESSION.  Thus  WE  have  a Twn-STCP  CONVERSION 
PROCESS  WHICH  CAN  HANDLE  EXPRESSIONS  OF  ARBITRARY  COMPLEXITY. 

FIGURE  B-i  ALSO  ILLUSTRATES  HOW  A PUSH-DOWN  STACK  Is  IMPLEMENTED 
IN  SOFTWARE.  THE  STACK  IS  JUST  AS  ARRAY  WITH  A POINTER 
MAINTAINED  ELSEWHERE  WHICH  ALWAYS  POINTS  TO  ME  TOP  OF  THE 
STACK.  wnr.N  THE  STACK  fS  PUSHED*  THE  POINTER  IS  INCREMENTED. 

when  the  stack  is  popped,  the  array  element  pointeo  to  is 

RETURNED  A*,D  THE  POINTER  DECREMENTED.  IN  Thf  PROGRAM  LISTING. 
THREE'  STACk  ROUTINES  ARE  PROVIDED:  I PUSH*  WHICH  PUSHES  THE  ARGUMENT 

ON  the  stack?  IPOP*  which  RETURNS  THE  item  POPPEO  OFF  THE 
STACK*  AND  ISEE*  WHICH  ALLOWS  US  TO  EXAMINE  The  CONTENT  OE  THE 
TOP  OE  THE  STACK  WITHOUT  POPPING  IT.  ThE  FLOW  CHART  IN 
FIGURE  8-2  ILLUSTRATES  THE  OVERALL  PROGRAM  FLOW. 

THE  VARIABLES  USF.O  In  THF.  SAMPLE  PROGRAM  ARE  STORED  In  An 
ARRAY  AS  E iCOUNTEPEO.  IN  PRACTICE,  THIS  METHOD  IS  TOO  INEFFICIENT 

for  real  compilers*  and  a hash-table  should  be  used  for  any 

REAL  APPLICATIONS  ( SEE  REFERENCE  fil). 
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AFTER  THE  READER  UNDERSTANDS  THE  PROGRAM  OPERATION. 

AN  INTERESTING  EXERCISE  CAN  HE  TO  EXPAND  THE  PROGRAM  TO 
INCLUDE  FUNCTIONS.  SUBSCRIPTED  VARIABLES.  AND  EVEN 
CONDITIONAt  STATEMENTS.  ANOTHER  INTERESTING  FxEPCISE  IS  TO 
WRITE  A HIGH-LEVEL  LANGUAGE  FOR  PROGRAMMABLE  CALCULATORS. 

THIS  HIGH-LEVEL  LANGUAGE  COULD  BE  CONVERTED  INTO  A SERIES  OF 
KEVSTGKES  USING  RPN  LOGIC  BY  A ROUTINE  SIMILAR  TO  SUBROUTINE 
POLISH. 

THIS  PROBLEM  WAS  SELECTED  BECAUSE  IT  ILLUSTRATES  THE  EASE  wITh 
WHICH  EVEN  A RELATIVELY  COMPLICATED  STRINg-mANIPUI  ATION  PROBLEM 
CAN  BE  HANDLED  USING  THF  CHARACTER  STRING  PROCESSING  LIBRARY. 
WITHOUT  TH  LIBRARY.  THIS  PROGRAM  OF  LESS  THAN  22 J STATEMENTS 
WOULD  PROBaBLY  REQUIRE  IN  EXCESS  OF  2 000  STATFmENTS. 
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FIGURE  B-l 


PUSH-DOWN  STACK 


OPERATION  - LAST  IN,  FIRST  OUT  ( LIFO  ) 


IMPLEMENTATION  -ARRAY  WITH  POINTER 


ARRAY 

STACK  POINTER  f 

STACK  POINTER 


ARRAY 

HELLO" 

'THERE" 


STACK  POINTER 


2 


ARRAY 

"HELLO" 

"THERE" 


people- 


stack  POINTER 


ARRAY 


"HtfLLO” 


"THERE” 


PEOPLE" 


FIGURE  B-3 
SUBROUTINE  POLISH 


CONVERT  INFIX  TO  POLISH  NOTATION 
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*****  FORTRAN  LISTING  Of  EXAMPLr  PROGRAM  £ ***** 

PROGRAM  XPRESNIInP-IT,  TAPES-  I NPUT  • OUTPUT*  T APE6=0UTPilT  > 

r 

r INTERACTIVE  ARITHMETIC  EXmPESsION  INTERPRETER  WITH  VARIABLES 

r 

LOGICAL  LfXlC*  LAPTOP 

COMMOf  / XPRSN  / IRS.  IP*  LSTK(SO)*  LPOLIi'OO).  LOLIM(|0>. 

X L0PEm(9)»  LRANK<R>*  LVAP(iOL').  VAPVALUOC)*  LASTOP.  IHLK.  I NSTR* 
X NVAR 

C INITIALIZE  common  VARIABLES. 


DATA 

CALL 

lrank  / o*  ;* 
* I M T < 0 1 

'6%  3t  it  4 1 

4 • 5 

/ 

CALL 

X M il 

hONLST<LOPE.', 

, liftfttt  ) 

«•  ( ai9  II)  uf  m-m9 

••♦««  9 

•1.11  f II  ft  II  y 11/ If 

CALL 

kONLST (LOLIM, 

M M % M ( M f II  | II  y 

H — II  9 

M4II9  ll_lt9  lltll 

x II  H,  11**11  ) 

IBLK=KON("  "J 
INSTP=L 
DO  IV  1=1*100 
LVAR  ( ' ) =>. 

VARVAl  ( I ) =0.0 
1C  CONTINUE' 

NVAR  = 

r 

11  CONTINUE 

c reset  counters  in  preparation  for  new  expression. 

ip='. 

lastop=.tpue. 
c R£-o  expression. 

call  pREPL(INSTR*KIN(-»*-,  >) 

CALL  "OUT  (n.JNST'*  ) 

IF  ( LE v I C < I NST R»hp Q" »KOM" STOP" *-i ) ) ) STOP 
C CONVERT  INFIX  TO  POLISH  NOTATION. 

CALL  POLISH 

C USE  POL ISh  LIST  TO  COMPUTE  AND  PRINT  RESULT. 

CALL  COMPUT 
GO  TO  11 
END 
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SUrtPOUTlN*:  POLISH 


i 

ii 


i 


V 

■ 


t 
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r CONVERT  EXPRESSION  FROM  INFIX  NOTATION  TO  POLISH  NOTATION 

r 

LOGICAL  LfcXIC.  L/SrOP*  LOP 

COMMON  / XPRSN  / IPS*  IP*  LSTK(50)»  LPOL<200>»  LDL IM  ( ( 0 ) » 

X L0PEp(9)»  LRANK(*)»  LVAP(iLO)*  VARVALdOO)  * LASrOP*  TBLK*  INSTR* 
X NIVAR 
I3S=0 

51  CONTINUE 

C SCAN  REMA1NOER  OF  STRING*  FIND  NE  *T  ATOM, IT. 

CALL  '•  CAN  ( 1 T »LOPl 
C IS  IT  AN  OPERATOR... 

IF  ( LO- ) GO  TO  201 

C NO.  ITS  AN  OPFRANO  IF  THIS  PATH... 

C MOVE  IT  TO  POLISH  LIST. 

IP=IP»1 
LPOL  < I P ) = 1 7 
111  CONTINUE 

C GET  NEXT  ATOM.  IT. 

CALL  CAN(IT.LOP) 

C CHICK  FOR  IT=NOLL  meaning  fnd-of-expression. 

IF<IT.EQ.O)GO  TO  251 
121  CONTI mUE 

c COMPARE  rank  of  operator  stack  top  with  it. 

IF ( IP aNK ( I SEE ( NS) ) »LT . I RANK ( I T » ) GO  TO  201 
C MOVE  HIGHER-RANKING  OPERATOR  FROM  STACK  TO  POLISH  LIST. 

IP=IP*i 

LPOL ( IP! = I POP (NS) 

GO  TO  121 
2 1 CONTINUE 

C CO-/E  HERE  when  IT  IS  AN  OPERATOR.  CHECK  FOR  IT=NULL=ENO 

IF ( IT.EO.O) GO  TO  251 

C Ch,  CK  FOR  SPECIAL  CASE  = RIGHT  PARENTHESIS. 

IF<LE»ICUT*"NE".LOPEW(2))>G0  TO  301 
221  CONTINUE 

C COmE  HEPE  when  > encountered. 

JUNK= | POP (NS) 

GO  TO  111 
251  CONTINUE 

C COME  HERE  ON  ENO-OF-LINE.  FLUSH  OPERATOR  STACK  TO  POLISH. 

JUNK=;SEE (NS) 

261  CONTINUE 

IFINS.LT.  dreturn 
IP=IP-1 

LPOL (IP) =IPOP (NS) 

GO  TO  261 
301  CONTINUE 

c Come  here  when  any  operator  except  ">••  is  encountfreo. 

CALL  I PUSH (IT) 

GO  TO  51 
END 


L 


^ 
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SUBROUTINE  SCAM  rT, LOP) 


C SC*N  REMAINING  EXPRESSION  FOR  NEXT  ATOM. 

C An  ATOM  MAY  hE  AN  OPERATOR*  A VARIABLE*  OR  A NUMBFR. 

LOGICAL  LFXIC*  L'SrOP.LOP 

COMMOu  / XPRSN  / nS»  IP*  LSTK(SO)*  LPOL<200>»  LOL I M ( i 0 ) « 

X LOPEMW*  LRANK(H)*  L VAR  < 1 O'j)  • VARVAL<100)»  LASTOP*  IBLK.  InSTR. 

X nvar 
r 

IF<INGTR.FQ.O)GO  TO  IBl 

C LOCATE  COLUMN  WITH  1ST  NON-BLANK  CHARACTER. 

1 1 N8=mATCH  ( INSTR  * "F  IRSTNOT"  * IBLK  * 

IF ( 1 1 B.EQ.O) GO  TO  1S1 
r REMOVE  ANY  LFAiilNG  BLANKS. 

IF  < 1 1'jB.GT.  1 ) CALL  «REPL < I NsTR, KSUb < InSTR* I 1 NB)  ) 

C FInD  COLUMN  WITH  DELIMITER  TERMINATING  ATOM. 

ICOLlM=MATCH(lNSrR*,,FIRST"tLCLlM,n.lMlT) 

IF  ( ICDL  IM.EO.  1 ) GO  TO  *:01 
r CO  E HERE  IF  IT  IS  AN  OPERAND. 

IT=KS  B(INSTR«1»IC0LIM-1) 

C OIsCARO  PORTION  OF  EXPRESSION  WERE  DONE  WITH. 

CALL  KREPL(lNSTR,KSUb(IN5TR»ICOLIM)) 

GO  TO  Svil 
151  CONTINUE 

C COv£  HERE  ON  FNO-OF-STRING. 

I T - , 

lop=.true. 

GO  TO  e l 
2-  1 CONTINUE 

C CO  E HERE  IF  IT  IS  AN  OPERATOR. 

I T =KSllH  ( l NSTR  * i » < ) 

IF(LE*IC(IT»  "El)"  * L'TPEW  ( 6 ) ) ) Go  TO  25i 
IF(LExIC(IT»"NE",LOPER(H)))60  TO  401 
C CO-  £ HERE  FOR  - SIGN.  SEE  IK  IT  IS  Ur-'APY  OPERATOR  _. 

IF(LAsTOP) IT=LOP-R(H) 

GO  TO  4 .1 
251  CONTINUE 

C CHrCK  FOR  POSSIRLE  **  OPERATOR  INSTEAD  OF  JUST  *. 

IF  <LE<IC<KSUB<  INSTP.2*  l )♦"£«)"  *LOP£R<M  ) ) IT=L0PER<9) 

401  CONTINUE 

LASTOP=.TRUE. 

J=2 

IF(LEyIC<IT*"EQ»,L  )PER<9) ) ) J = 5 
C OIsCARD  PORTION  OF  EXPRESSION  ALRF AOY  OONE. 

CALL  KREPL(INSTR*KSUB<INSTR»J)) 

LOP=.TRUE. 

GO  TO  601 
501  CONTINUE 

LOP=. FALSE. 

LASTOP=. FALSE. 
b' 1 CONTINUE 
RETURf 
ENO 
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SUBROUTINE  IPUSH(ITEM) 


r 

r 


PlKH  ITEM  ONTO  PUSH-DOWN  <UFO>  STACK. 


COMMON  / XPRSN  / I^S.  IP*  LSTK<50)»  LPOL(200>»  LULTM(|0)» 
X LOPE1'  (9)  » LRANK  ( W ) » LVAR(iOO).  VARVAL  ( 100)  * LASTOP.  IBLK- 


X NVAR 
IPS=I->SU 
LSTK ( TPS) =!TtM 


RETUR 

END 


INSTR* 


INTEGER  FUNCTION  I*>OP(NS) 

RETURN  ITEM  POPPED  OF  TOP  OF  PUSH-DOWN  STACK. 

LOGICAL  LASTOP 

COMMON  / XPRSN  / I'-'S.  IP.  LSTK(50).  LPOL(i?00>»  LULIMIlO). 

X LOPEp  ( 9)  » LRANK  (4)  . LVA»U00).  VARV AL < i 30 > » LASTOP.  1 6LK . INSTR. 
X NVAR 
IPOP  = 

NS=IPS 

IFUPS.LT. ilRETUPN 
IPOP=l  STK(IPS) 

IPS=I->S-I 

NS=IPS 

RETUR 

END 
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integer  function  isee<ns> 

RETURN  CONTENTS  OF  TOP  OF  otJSH-OOwN  STACK  WITHOUT  AFFECTING 
TH.  CONTENT  OF  THE  sTACK. 

NS  IS  A VARlAolE*  RETURNEO  AS  PRFSENT  STACK  DE« TH. 

LOGICAL  LASTOP 

COMMON  / XPRSN  / I^S.  IP»  LSTK(Sj).  LPOL(i*00>.  LOLIMUO). 

X LOPE  o ( 9)  « LRANK  { 9)  » LVAP(IOO).  VARVALUjQ).  LASTOP*  THLK.  INSTP. 
X NVAR 
I SEE  = 

NS= IPS 

IFUPS.lt.  iirfturn 
I SEE=I  STK(IPS) 

RET  UR 
END 


integer  function  irankiistr) 

compute  relative  rank  of  operator,  istr.  from  given  herarchy. 

LOGICAL  LEXIC.  LASTOP 

COMMON  / XPRSN  / IPS.  IP.  LSTK  (50)  • LPOL(ifOO).  LOLIMUO). 

X LOPEP ( V) . LRANK(U).  LVAW(K.j),  VARVAL(IOO).  LASTOP.  TBLK,  INSTR< 
X NVAR 
IRANKr-1 

IF(ISTR.EO.®)RETuR 
DO  10)  1=1.9 

IF(LExIC(LOPER(I) .»EO". ISTR) I GO  TO  i 1 

100  CONTINUE 

stop"  pank  error** 

10 1 continue 

IRANK=LRANK(I) 

retur- 

END 


t > 


o o 


SUBROUTINE  corput 


: 


C EXECUTE.  OPERATIONS  INDICATED  bY  POLISH  EXPRESSION. 

r 

LOGICAL  LEXIC 

COMMON  / XPRSN  / I^S*  IP,  LSTK(50)»  LPOL<200>,  LOL IM ( I 0 ) * 

X L OPE  P ( 9 ) » LRANK  (H»)  • LVAR(icO).  VARVAL < 100) * LASTOP*  TBL«*  INSTR* 
X NVAR 
IPS=0 
imsg= 

CALL  *R£PL  ( IMSG.KOn  (•'  =",-*>) 

ANS=U. 

1=0 

1-1  CONTINUE 

r NE*  T ITEM  FROM  POLISH  LIST. 

1 = 1*1 

IF  < I.0T.IP)G0  TO  S I 
c IS  IT  An  OPERAND... 

IT=LP  KII 
00  IS  J=I,9 

IF(LE*IC(ITf"EO".LOPERU>>>GO  TO  23l 
150  CONTINUE 

c no.  it  is  an  operand  if  this  path,  push  on  stack. 

CALL  JPUSH(IT) 

GO  TO  101 
231  CONTINUE 

YES.  IT  IS  OPFRATOR  IF  THIS  PATH.  GET  LAST  2 OPERANDS  FROM 
TOP-OF-STACK.  UNLESS  UNAR  < - OPER.  OR  = SIGN  SPECIAL  CASE. 

OPtf  = V ALUE ( I POP ( N - ) ) 

IF ( J.  0. 3) GO  TO  4*1 
lF(J.\E.d)OPl=VALU* (TPOP(NS)  ) 

c perform  the  operation. 

JM3=J-3 

GO  TO  (3ul. 311.3^1. 331*341. 3S1)JMJ 
30 1 CONTINUE 
c ADD. 

ANS=OPl  ♦ 0P2 
GO  TO  4<.l 
311  CONTINUE 

C subtract 

ANS=OpI  - 0P2 
GO  TO  4 cl 
321  CONTINUE 
C MULTIPLY. 

ANS=  0P1  * 0P2 
GO  TO  401 
331  CONTINUE 
r DIVIDE. 

ANS=OPl  / 0P2 
GO  TO  4«l 


J<4l  CONT  i*,ue 

r UNARY  NEGATIOm. 

ANS=-oPt: 

GO  TO  4 1 
3S1  CONTINUE 

r EXPONENTIATION. 

ANS=Op 1 **  OPi? 

GO  TO  1 
JHi  CONTINUE 

C assignment  ( - ). 

NAMVAf>=I  POP  ( NS) 

OO  39  K = 1»N\/AR 

IF(LEvIC(NAMVAlRt"EN",L'/AP(K)  ) )G0  10  VJ  i 
3'R‘v  CONTINUE 

r y/A~'I  ABLE  NOT  FOUNQt  PUT  IT  IN  TAB)  E. 

NVAP  = rVAR*  L 
L VAR  ( r.VAR)  = NAM V AP 
K = NVA 

.m  continue 

VARy/AL  (K>  =0P<; 

ANS=OpE 

CALL  kREPL(IMSG.kAT(NAMVAR,ImsG) > 

GO  TO  SCI 
■*'  I CONTINUE 

C PL»CE  result  of  operation  ON  ST  AC* . 

CALL  IPUSh(KSR(A‘S) ) 

GO  TO  l-i 
S 1 CONTINUE 

( CO  >E  HERE  TO  PRING  ANSWER. 

CALL  *OUT (6»KAT ( IMSG.KSR(ANS) ) t l) 

RFTUR 

END 


REAL  FUNCTION  VA|UE<ITEM) 


RETURN  NUMERIC  VALUE  OF  OPERAND  ITEM. 


COMMOr,  / XPRSN  / I^S*  IP*  LSTK  (50)  * L POL  ( 200 ) * LOLTM(io>* 

X LOPEp  ( R)  » LRANK<-*>»  L V AH  (**'(<>  * V ARVALUOO)*  LASTOP*  TBL«  * INSTR. 
X N V aR 
VALUE -0. 

IF  < IT,  M.Eu.O) RETURN 

C 1ST  CHARACTER  DETERMINES  IF  ITEM  IS  VARIABLE  OR  NUMBER. 

IC1  -K  ,Uij  ( I TEm«  1 * i ) 

IF  (L£'  I C < I Cl  » "LT" * <0N ( " 3") ) ) SO  TO  dC.  I 
r IT  M IS  A LITERAL  number  if  THIS  PATH. 

VALUE-RLVAL (ITEM) 

RETIJR 

d'l  CONTINUE 

C CO^E  HERE  IF  ITEM  = VARIABLE.  FIND  IT  IN  TABLE. 

DO  db  K=i»NvAR 

IF  (LEx  IC  ( I TEM."E')"*LVAR  (K) ) )oo  To  db 
d SO  CONTINUE 

r VARIABLE  UNDEFINED  IF  THIs  PATh,  ASSUME  = 0. 

CALL  *<OUT(6.KAT(KON("  UNOEF I NED"  • -1  > . I TEm  , KON  ( " SET  To  0."))> 
RFTUR 

dbi  CONTINUE 

C RETURN  VALUE  ASSOCIATED  WITH  VARIABLE. 

VALUF  = VARVAL(K) 

RETUW 

END 
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SAMPLE  OUTPUT  FROM  PROGRAM  XPRESN  PlJN 

l-  11 
Z = li. 

ZFUNCTION  = l*(l/(2*(l/(o*?*21) ) ) ) 

ZFUNCTION  r l.*9714285714 
A - 1 

A = 1. 
d=i 0.000 

a = io. 

C =11*5. 5*3. 5 -1 
C = 21. 

ooor=  <-r  ♦ <a*a  - 4*a*o )/<«i*A) 

ROOT  = j. 

T = 175 
T = 175. 

GR=  7.6E ; 3 
Gp  = 7.80U  0CL*13 
PR= . 2256 
PR  = .2256 

NUSUdL  = .4246  * UmP**1.17)/U«-.04R*PR**.67)*GR)**0.4 
NUSU8L  = ‘♦140.220422H 
FINAL  = NUSUBL/C  ♦ ZFUNCTION 
FINAL  = 2171.807353^1 
JOL  = RALP-i  ♦ 2.44 
UNDEFINED  RALPH  SET  TO 
J)F  - <;.44 

STOP 


63 


APPENDIX  C 


ALPHABETICAL  LISTING  if  ksplib  routines  and  lfngths 


(SINCE  THE  CHAPACTER  STRING  PROCESSING  ROUTINES  ARE  AVAILABLE  ON 
A LIBRARY*  ONLY  PROGRAMS  ACTUALLY  NEEDED  ARE  LOADEO) 


NAME 

octal  len. 

REFERENCES  THESE  ROUTINES... 

BIT 

<♦3 

CENSUS 

1 1 

CHEILL 

1 16 

CHXFR 

CHXFR 

1 IS 

DSGET 

<71 

BIT  CENSUS  IFETS  VFETP  VIO 

IFETS 

"5 

* INTVAL 

ISI 

KAT  KON  KOUT  KASA  NFIXER 

* KAT 

153 

CHXFR  OSGET  KSAS  KSMAKE  LOCFP 

* KJC 

11  V 

CHXF R DSGET  KSMAKE 

* KEC 

66 

CHXF«  KSAS 

* Kir; 

ps<; 

CHXFR  DSGET  KRACTR  KSMAKE 

* KIN  IT 

VFETCB  VFETR  VIO 

* KINTEK 

,37 

AINST  CH*FR  DSGET  KRACTR  KSMAKE 

* KON 

CHFILL  CHXFR  OSGET  KRACTR  KSMAKE 

* KONLST 

-1 

LOCFP 

* KOUT 

P 15 

KSAS 

* koutek 

103 

KSAS 

KRACTR 

* kpepl 

<7 

KRLS 

* KRLS 

IdJ 

KSAS  LOC^P 

* KRLSL 

70 

KRLS 

KSAS 

?dd 

IFETS  VFETP  VIO 

KSMAKE 

i J4 

* K3R 

413 

CHXFR  OSGFT  KRACTR  KSMAKE 

* KSUd 

• 35 

CHXFR  OSGET  KSAS  KSMAKE 

* LEN 

ud 

KSAS 

* LEXIC 

153 

CHXFR  KRACTR  KSAS 

LOCFP 

KON 

* MATCH 

-,<?6 

CHXFR  KRACTR  KSAS 

NFIXER 

.6 

NFLTFW 

nflter 

,<?7 

♦ RLVAL 

, 46 

KAT  KON  KOUT  KSAS  NFLTER 

VFETCS 

65 

VFETP 

6 7 

VIO 

->0 

•NOTE: 

ROUTINES  ACCESSABLE  BY  USER. 

LENGTH  OF  /'LL  ROUTINES  IS  SUBJECT  TO  CHANGE  AS  MODIFICATIONS 
ARE  MADE  TO  LIBRARY  OR  OPERATING  SYSTEM. 
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ALP-AdrTICAL  UU  I (.  K-Wf  f £ vf  tF  IUnEa  iu  ChARAT  ]c  W-STkINO  kOtlTplES 


C*LLTNO  r (j'M  ’.Tib)  kA<;E 

<tNT£3p-'>v  v/  A|_  , > = i N T YAL  < '>  Tk  I N(»  k£P.>)  ht->h 

< f NTFGt'k  »/At.>  = INTVAL  < <'.TRI  NO  k£r'.>»<Ji-  r>kOW>) 

<rTP. RFP.>  = KAT KSIk.k  K.>,<ir>.kt  ~.>f ,<STk.PFo.>...  ))  3,, 4 

<STR.kEP.»  = kQC  ( < ACTdAi  - > TP  I MG>  * <C'»L  • i > ♦ <LC  NOTh>  ) HI 

C.aLL  KEC(<iT  ^.RFH.>»<f)E  > T • > « <COL  • i > ) 4k 

<rtr.r>-:p.>  = kin(<lfm>)  4. pi 

<r>TO.RcP.>  = K I n ( <LFN>  » <-L  M>Th>> 

<FTR.RFP.>  = KlN(<Lr'J>»-<-,AOOlN(i>> 

C LL  K I N I T ( < ulF.‘.IZt>)  7.34*34 

<^TR.RrP.>  = KlNTtK(<LF  0’H>)  H4 

<STR.RFR.>  = KON  < <L  i TF  R L :>Tk.>)  3.11 

<*T».R£P.>  = KONKLITfcR  l STR.  > . <L>-' ' OTH>) 

<'TR.RFP.>  = KON  ( <L  1 T£R  ‘ L b TD.  > . -<P -DO  I N(i> ) 

C "'LL  KONLST  (<  INT.  ARRAt'>.<l  IT.bT -,>.f  <L  1 T.ST  .>...))  13 

CALL  KOOTKLf  N>*<$TR.RF->.>>  4.  '3 

Call  KOUT(<L;  N>»<STk. 9Fk.>»<C Ak.CNT •*!..>) 

CALI.  KOuTcK  (*'5Tk.R£k.>)  PS 

CALL  KOUTEK  < •'STR.RFr>.>*«rL  R.CNTt.‘L.>) 

CALL  KRFPL(<sTR.RFP.>»<-,T'‘.RFP.>)  33 

CAiLL  KPLS(<dTR.R-k«>f  »<sT  J.RFk.>...  I)  3 p 

CALL  KRLSL(<^TR.KKP.ARR’y>t<No.~'Lb.>)  43 

<ST9.RFP.>  = kSR(<VALOF>)  3 

<ST«?.R£P.>  = kSR(<VALUF>»<FTN.FmT>) 

<STo.REP.>  = KSDpi  (<STR.  >r  p.>»<START.roL.>)  3.|S 

< STR. R£P. > = KSOS(<STR.p-r  P.>»<START. COL. >»<*  0. ChAR. >) 

<TNT.VAL.>  = LEN  (<STR.Rr  P.>)  S.tb 

<.T./.F.>  = i EXlC(<STR.PF‘'.>t<Kf  Y>t<STR.RFP.>)  S.l7 

<COL.NO.>  = aATCh(<STR. 'Fp.>*<KFY>,<PAT.S.R.>1  S.|9 

<'"0L  • NO.  > = MATCH  <<:>TR.  <r  ». » *<KF Y» ♦ <PA T .L I ST  S.k.>* 

<N,'.PAT.>*<I  A T CH>  ) 

<PFAL  VAL.>  = RLYAL(<ST|,«  jEp.>)  29 

<p£AL  VAL.>  = RLvAL (<ST-. ?£h.>,<IF  £PROR>) 
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